call/cc sample code.