kturtle-script-v1.0 # Siepinski square @(reset) @(canvassize) 800@(,) 600 @(go) 100@(,) 500 @(turnright) 90 @(learn) q_sierp $length { @(if) $length > 1 { @(repeat) 4 { q_sierp $length*0.4 @(forward) $length @(turnleft) 90 } } } q_sierp 401