Discordian calendar in Haskell