haskell implementation of chatless