begin;var a;var i;var r;inp a;;;;;;;;;turn right;
                                                t
                                                u
                                                r
                                                n

                                                r
                                                i
                                                g
                                                h
                                                t
;tfel nrut;;;;;;;84-a+2*i i tes;a pni;84-a i tes;
t
u
r
n

l
e
f
t
;set r at{"0001", i+0.5};out r;end;
