answer2 = do
  coords <- getData
  print $ areas' $ makeGrid' coords 10000
answer2 = do
  coords <- getData
  print $ areas' $ makeGrid' coords 10000
answer2 = do
  coords <- getData
  print $ areas' $ makeGrid' coords 10000