zeroGrid :: Int -> Int -> IO Grid
zeroGrid w h = return $ R.fromListUnboxed (Z :. w :. h) (replicate (w*h) 3)
zeroGrid :: Int -> Int -> IO Grid
zeroGrid w h = return $ R.fromListUnboxed (Z :. w :. h) (replicate (w*h) 3)
zeroGrid w h = return $ R.fromListUnboxed (Z :. w :. h) (replicate (w*h) 3)