: bla x 	;
: zna bla 	;
: fla zna 	;
: gja fla 	;
: thui gja 	;
: ddd thui cr 	;

ddd

: signbit 1 getS. p-> 3 upsh. 1 - upsh. ;



: fibstep swap over  + dup x ; 

10 wo.
