First working version of call/cc