loadProblem :: IO [[Int]]
loadProblem = do
  fileStr <- readFile "euler-011.txt"
  let fileLined = lines fileStr
      fileWords = fmap words fileLined
      fileInt   = fmap (fmap read) fileWords
  return fileInt
loadProblem :: IO [[Int]]
loadProblem = do
  fileStr <- readFile "euler-011.txt"
  let fileLined = lines fileStr
      fileWords = fmap words fileLined
      fileInt   = fmap (fmap read) fileWords
  return fileInt
loadProblem = do
  fileStr <- readFile "euler-011.txt"
  let fileLined = lines fileStr
      fileWords = fmap words fileLined
      fileInt   = fmap (fmap read) fileWords
  return fileInt