main :: IO ()
main = do
  putStrLn $ "Part 1: " ++ show (part1 myRound)
  putStrLn $ "Part 2: " ++ show (part2 myRound)
  putStrLn "all done"
main :: IO ()
main = do
  putStrLn $ "Part 1: " ++ show (part1 myRound)
  putStrLn $ "Part 2: " ++ show (part2 myRound)
  putStrLn "all done"
main = do
  putStrLn $ "Part 1: " ++ show (part1 myRound)
  putStrLn $ "Part 2: " ++ show (part2 myRound)
  putStrLn "all done"