099 Haskell working, needs optimization