Haskell: Day 1 done.