11 lines
216 B
Scheme
11 lines
216 B
Scheme
#lang 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)
|
|
(gn "first")) |