I come up with this answer and understand it with the help of this guide http://learnyouahaskell.com/starting-out in "I'm a list comprehension" section.
Merge pull request #10 from stevecuber/patch-3

I come up with this answer and understand it with the help of this guide...