entirely in haskell :)
you shouldn't; but for documentation purposes it's
$ ghc 1-a.hs && cat 1_input | ./1-a
you'll need to retrieve 1_input from your aoc
1_input