A Haskell utility for tea addicts