[Haskell-cafe] Review request for my encoding function