My haskell samples