Some improvements. Bad strategy. TODO: debug Trader/Trader.hs.