Some codes written in Haskell