Rotating cube in Logo

My very ungainly attempt at a rotating cube in Logo!

to cube
repeat 4 [square 100 fd 100 downpitch 90]
end

to rotcube
repeat 100 [
repeat 360 [
cube
penerase
cube
pennormal
rt 1
]
]
end

to square :n
repeat 4 [fd :n rt 90]
end