First code ever committed in Haskell