\l tck/factor

test:D[(("test1 escaping continuation is ";`print
         `dup;`print
         `test2)
        `callcc1
        "end-of-test";`print)]

test2:D[("test2 will call escape continuation";`print
         `dup;`print
          ("test2 continuation to re-enter is ";`print
          `dup;`print
          `swap;`call)
          `callcc1
          `nip
          "Stack after calling test2s re-enter continuation is";`print
          `Z
          `call)]

test3:D[("calling test2s re-enter continuation";`print
         `dup;`print
         ("test3 escaping continuation which test should call is";`print;`dup;`print
          `swap;`call)
         `callcc0
         `drop
         "test3-end";`print)]

E(`test;`dup;`test3;`dup;`test3)