Exchange simulator in Haskell