to hex :a

repeat 6 [
 forward :a
 right 60 ]


if :a>10 [:a=:a-2 ]

end

:c=8

repeat 9 [
 hex 40
 color :c
 :c=:c+1
IF :c>10 [ stop ]
right 40 ]