experiments with call-cc