Added example to study from realworldhaskell