easy 13 in haskell, date and times