to twirlTillTiny [ n ]

    square n
    wait 0.05
    if n > 2 [ rt 2.5 twirlTillTiny n - 0.05 ]

end

to square [ sideLength ]
   repeat 4 [
   fd sideLength
   rt 90 ]
end

to reset
   ca
   cro 1
   ask turtles [ pd ]
end

to octetOfJs
    ca
    cro 8

    ask-concurrent turtles 
        [   
            fd 12  
            pd 
            twirlTillTiny 7
        ]
end