main :: IO ()
main = do
  nums <- loadProblem
  print $ maximum . map product . getFours $ nums
main :: IO ()
main = do
  nums <- loadProblem
  print $ maximum . map product . getFours $ nums
main = do
  nums <- loadProblem
  print $ maximum . map product . getFours $ nums