A possible answer:
to spiral :s
if :s > 4 [stop]
repeat 90 [fd :s rt 2]
spiral :s + .5
end