Initial fun with haskell!