Little haskell test file