[Haskell] hs2lhs