Create cube.hs