To petal :SIDE :COL
CS HT
Repeat 12 [REPEAT 16 [FD :SIDE RT 360 / 16 MAKE "SIDE :SIDE + 1 MAKE "COL :COL + 1] SETPC :COL]
End

