scene :: Scene ()
scene = transformScene Transform $ 
          replicateM_ 10 
            (transformScene Transform unitCube)
  where unitCube = cube Cube
scene :: Scene ()
scene = transformScene Transform $ 
          replicateM_ 10 
            (transformScene Transform unitCube)
  where unitCube = cube Cube
scene = transformScene Transform $ 
          replicateM_ 10 
            (transformScene Transform unitCube)
  where unitCube = cube Cube