Draws a cube in Haskell