Added haskell sampel code.