add Functions in haskell blog