[Haskell-cafe] Help to write type-level function