Sample code written for learning Haskell