Added verbose beginner haskell solution