main :: IO ()
main = do
  let inputFile = "input/day1.txt"
  input <- readFile inputFile
  let (Right steps) = parse stepsP inputFile input
  print $ part1 steps
  print $ part2 steps
main :: IO ()
main = do
  let inputFile = "input/day1.txt"
  input <- readFile inputFile
  let (Right steps) = parse stepsP inputFile input
  print $ part1 steps
  print $ part2 steps
main = do
  let inputFile = "input/day1.txt"
  input <- readFile inputFile
  let (Right steps) = parse stepsP inputFile input
  print $ part1 steps
  print $ part2 steps