16 lines
397 B
Scheme
16 lines
397 B
Scheme
(module mm00 (lib "lang.ss" "web-server")
|
|
(provide start)
|
|
|
|
(define (gn which)
|
|
(cadr
|
|
(send/suspend
|
|
(lambda (k)
|
|
(let ([ignore (printf "Please send the ~a number.~n" which)])
|
|
k)))))
|
|
|
|
(define (start initial)
|
|
(let ([ans (+ (gn "first")
|
|
(gn "second")
|
|
(gn "third"))])
|
|
(printf "The answer is: ~s~n" ans)
|
|
ans))) |