Haskell: Day 1 notes until traversing lists.