Haskell server for tuba