(sub spiral [arc_repeats] [step_over] [radius_begin] [spiral_repeats]) o sub #=#3 o200 repeat [#4] o call [#1] [#2] [#] #=[#+#2] o200 endrepeat o endsub