just some code for learning haskell