Initial haskell day 1.