Haskell code to determine on which day of the week is the 13th of the month most likely to fall.