to p1
setpensize [5 5] pd
repeat 5[sq fd 50]
pu home setpensize [1 1]
end

to p10
setpensize [5 5] pd
repeat 2[sq fd 50] rt 90 repeat 2 [fd 50 sq] fd 50 rt 90 fd 50 sq
pu home setpensize [1 1]
end

to p11
setpensize [5 5] pd
repeat 2[sq fd 50] rt 90 repeat 2 [fd 50 sq] bk 50 lt 90 sq
pu home setpensize [1 1]
end

to p12
setpensize [5 5] pd
repeat 2[sq fd 50] rt 90 fd 50 sq lt 90 sq fd 50 rt 90 fd 50 sq
pu home setpensize [1 1]
end

to p2
setpensize [5 5] pd
repeat 4[sq fd 50] rt 90 fd 50 sq
pu home setpensize [1 1]
end

to p3
setpensize [5 5] pd
repeat 3[sq fd 50] rt 90 repeat 2[fd 50 sq]
pu home setpensize [1 1]
end

to p4
setpensize [5 5] pd
repeat 3[sq fd 50] rt 90 fd 50 sq bk 100 sq
pu home setpensize [1 1]
end

to p5
setpensize [5 5] pd
repeat 3[sq fd 50] bk 50 rt 90 fd 100 rt 90 repeat 2[sq fd 50]
pu home setpensize [1 1]
end

to p6
setpensize [5 5]pd
repeat 3[sq fd 50] bk 50 rt 90 fd 100 rt 90 sq fd 50 rt 90 fd 100 sq
pu home setpensize [1 1]
end

to p7
setpensize [5 5] pd
repeat 4[sq fd 50] bk 100 lt 90 sq
pu home setpensize [1 1]
end

to p8
setpensize [5 5] pd
repeat 3[sq fd 50] bk 50 rt 90 fd 50 lt 90 sq fd 50 sq
pu home setpensize [1 1]
end

to p9
setpensize [5 5] pd
repeat 2[sq fd 50] rt 90 repeat 2 [fd 50 sq] lt 90 sq
pu home setpensize [1 1]
end

to sq
repeat 4[fd 50 rt 90]
end