An attempt at call/cc contract
Some random thrashing