answer1, answer2 :: IO ()
answer1 = do
  coords <- getData
  let grid = makeGrid coords
  print $ maximum $ areas grid
answer1, answer2 :: IO ()
answer1 = do
  coords <- getData
  let grid = makeGrid coords
  print $ maximum $ areas grid
answer1 = do
  coords <- getData
  let grid = makeGrid coords
  print $ maximum $ areas grid