to dash :n :len
   repeat :n [ pd fd :len pu fd :len ]
   bk :len
   pd   
end

to squareDash :n :len
   repeat 4 [ dash :n :len rt 90 ]
end


-------------------------------------------------------------------------
dash 10 5
rt 90
dash 10 5
rt 90
dash 10 5
rt 90
dash 10 5
pu
fd 100
rt 90
lt 9
lt 81
fd 200
bk 50
rt 90
square 10 5
I don't know how  to square
squareDash 10 5
dash 40 1`
I don't know how  to 1`
dash 40 1
dash 100 1
rt 90
dash 100 2
home
repeat 72 [square repcount 2 rt 5]
I don't know how  to square
repeat 72 [squareDash repcount 2 rt 5]
cs
repeat 72 [squareDash repcount 2 rt 5]
repeat 72 [squareDash repcount 2 rt 5]
repeat 144 [squareDash repcount 2 rt 2.5]
cs
repeat 72 [squareDash repcount 2 rt 5]
home
setpc [255 0 0]
rt 2.5
repeat 72 [squareDash repcount 2 rt 5]
home
setpc [0 0 255]
home
repeat 72 [squareDash repcount 2 rt 5]
setpensize [ 2 2 ]
home
repeat 72 [squareDash repcount 2 rt 5]
setpc [255 0 0]
home
repeat 72 [squareDash repcount 2 rt 5]
home
setpc [0 0 255]
rt 2.5
repeat 72 [squareDash repcount 2 rt 5]
repeat 60 [squareDash repcount 2 rt 6]
cs
setpensize [3 3]
home
repeat 60 [squareDash repcount 2 rt 6]
home
setpc [255 0 0]
lt 4
repeat 60 [squareDash repcount 2 rt 6]
home
lt 2
setpc [0 255 0]
repeat 60 [squareDash repcount 2 rt 6]
pu
home
fd 200
fd 200
lt 90
fd 300
rt 90
bk 50
bk 20
lt 90
fd 40
rt 90
bk 35
setpc [255 0 255]
squareDash 6 8
pu
bk 400
bk 200
repeat 36 [squareDash 8 8 rt 10]
rt 90
pu
fd 400
fd 100
setpc [0 255 255]
repeat 36 [squareDash 8 8 rt 10]
pu
rt 90
bk 400