A little bit of writing...

to write
ht repeat 40[fd 30 rt 9 setpc random 7 label [xlogo is cool!]]
end

Figure: Xlogo c'est sympa!