[Haskell-cafe] identity function