[cvs-nhc98] patch applied (hat): Haskell version of hat-anim contributed by Tom Davie.