fd 100
bk 50
rt 90
lt 45
pu
pd
repeat 4 [ ... ]
to koch [n len] [ ... ]
call koch [4 180]
if n [ ... ] [ ... ]
len/3, n-1, (n+2)*5
size 48
hls 200 55 90
pen normal_pen
pen none
pen ID