splitGridLine line = map (\x -> read x :: Integer) $ splitOn " " line
splitGridLine line = map (\x -> read x :: Integer) $ splitOn " " line
splitGridLine line = map (\x -> read x :: Integer) $ splitOn " " line