main = do
  coords <- fmap (map words . lines) getContents
  let points :: [Point Float]
      points = parMap rdeepseq makePoint coords
  points `seq` evaluate points
main = do
  coords <- fmap (map words . lines) getContents
  let points :: [Point Float]
      points = parMap rdeepseq makePoint coords
  points `seq` evaluate points
main = do
  coords <- fmap (map words . lines) getContents
  let points :: [Point Float]
      points = parMap rdeepseq makePoint coords
  points `seq` evaluate points