learning haskell
foo