Real World Haskell scratch