Birthday card in Haskell.