0. #lang racket
1.  
2.     ; your code goes here
3.  
4.     ;;Global variable for the continuation
5.     (define k-global #f)
6.  
7.     ;;We are using let* instead of let so that we can guarantee
8.     ;;the evaluation order
9.     (let* (
10.     (my-number 3)
11.     (k
12.     ;;set bookmark here
13.     (call-with-current-continuation
14.     ;;The continuation will be stored in "kont"
15.     (lambda (kont)
16.     ;;return the continuation
17.     kont))))
18.  
19.     ;;We are using "my-number" to show that the old stack
20.     ;;frame is being saved. When we revisit the continuation
21.     ;;the second time, the value will remain changed.
22.     (display "The value of my-number is: ")
23.     (display my-number)
24.     (newline)
25.     (set! my-number (+ my-number 1))
26.  
27.     ;;Save the continuation in a global variable.
28.     (set! k-global k)
29.     (display "test #2")
30.     (newline)
31.     )
32.  
33.     (display "test#")
34.     (newline)
35.  
36.     ;;Is "kontinuation" a continuation?
37.     (if (procedure? k-global)
38.     (begin
39.     (display "This is the first run, k-global is a continuation")
40.     (newline)
41.     ;;Send "4" to the continuation which goes to the bookmark
42.     ;;which will assign it to "k"
43.     (k-global 4))
44.     (begin
45.     ;;This occurs on the second run
46.     (display "This is the second run, k-global is not a continuation, it is ")
47.     (display k-global)
48.     (newline)))

=>

The value of my-number is: 3 test #2

test#

This is the first run, k-global is a continuation The value of my-number is: 4 test #2