to p1
pins setpencolor 4 setpensize [2 2] pd 
rt 60 repeat 3[fd 150 rt 120] 
setpensize [1 1] pu home
end

to p10
pins setpencolor 4 setpensize [2 2] pd 
rt 90 fd 260 rt 90 fd 150 rt 120 fd 150 lt 60 fd 150 rt 120 fd 150
setpensize [1 1] pu home
end

to p11
pins setpencolor 4 setpensize [2 2] pd 
rt 90 fd 260 rt 150 fd 150 lt 120 fd 150 rt 150 fd 260 rt 90 fd 150
setpensize [1 1] pu home
end

to p12
pins setpencolor 4 setpensize [2 2] pd 
rt 120 fd 150 lt 60 fd 150 rt 120 fd 150 rt 60 fd 150 rt 60 fd 150 rt 60 fd 150 
setpensize [1 1] pu home
end

to p13
pins setpencolor 4 setpensize [2 2] pd 
rt 120 fd 150 lt 60 fd 150 rt 150 fd 260 rt 120 fd 260 
setpensize [1 1] pu home
end

to p14
pins setpencolor 4 setpensize [2 2] pd 
repeat 2[rt 60 fd 150] rt 120 fd 150 lt 120 fd 150 rt 120 repeat 3[fd 150 rt 60]
setpensize [1 1] pu home
end

to p15
pins setpencolor 4 setpensize [2 2] pd 
repeat 3[rt 60 fd 150] rt 90 fd 260 rt 90 fd 150 
setpensize [1 1] pu home
end

to p16
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 120 fd 150 lt 120 fd 150 rt 120 fd 150 rt 90 fd 260 rt 90 fd 150 
setpensize [1 1] pu home
end

to p17
pins setpencolor 4 setpensize [2 2] pd 
repeat 2[rt 60 fd 150] rt 120 fd 150 lt 120 fd 150 rt 150 fd 260 rt 90 fd 150
setpensize [1 1] pu home
end

to p18
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 120 fd 150 lt 60 fd 150 rt 150 fd 260 rt 90 fd 150
setpensize [1 1] pu home
end

to p19
pins setpencolor 4 setpensize [2 2] pd 
rt 120 fd 150 lt 120 fd 150 rt 150 fd 260 rt 120 fd 260 rt 90 fd 150
setpensize [1 1] pu home
end

to p2
pins setpencolor 4 setpensize [2 2] pd 
rt 90 repeat 3[fd 260 rt 120] 
setpensize [1 1] pu home
end

to p3
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 60 fd 150 rt 150 fd 260
setpensize [1 1] pu home
end

to p4
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 90 fd 260 rt 150 fd 300
setpensize [1 1] pu home
end

to p5
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 60 fd 150 rt 120 fd 150 rt 60 fd 150
setpensize [1 1] pu home
end

to p6
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 120 fd 300 rt 120 fd 150 rt 60 fd 150
setpensize [1 1] pu home
end

to p7
pins setpencolor 4 setpensize [2 2] pd 
rt 60 fd 150 rt 60 fd 150 rt 90 fd 260 rt 120 fd 260
setpensize [1 1] pu home
end

to p8
pins setpencolor 4 setpensize [2 2] pd 
rt 90 fd 260 rt 90 fd 150 rt 90 fd 260 rt 90 fd 150
setpensize [1 1] pu home
end

to p9
pins setpencolor 4 setpensize [2 2] pd 
repeat 6[rt 60 fd 150]
setpensize [1 1] pu home
end

to pins
pu setpencolor 0 setpensize[10 10] pd fd 1 bk 1 pu lt 150 fd 150 rt 60
repeat 6[pd fd 1 bk 1 pu rt 60 fd 150] setpensize [1 1]
end