haskell jingle implementation