a market price fixer written in Haskell