TO utezi :str :r :n
cs
repeat :n [fd :str pu fd :r pd stampoval :r :r
pu bk :r bk :str pd
rt 360/:n]
END