[Haskell] ANN: ftphs