Practice code while I'm starting to learn haskell