easy 11 in haskell, calculating days of the week