2003-01-19 11:57:27 -05:00
|
|
|
(define-structure surflet surflet-interface
|
2002-12-08 13:45:58 -05:00
|
|
|
(open scheme-with-scsh
|
2003-01-19 11:57:27 -05:00
|
|
|
surflets
|
|
|
|
|
simple-surflet-api
|
2002-12-08 13:45:58 -05:00
|
|
|
)
|
|
|
|
|
(begin
|
|
|
|
|
|
|
|
|
|
(define (main req)
|
|
|
|
|
(let* ((number-1 (single-query (make-number "First number:")))
|
|
|
|
|
(number-2 (single-query (make-number "Second number:"))))
|
|
|
|
|
(inform (format #f "~a + ~a = ~a"
|
|
|
|
|
number-1
|
|
|
|
|
number-2
|
|
|
|
|
(+ number-1 number-2))))
|
|
|
|
|
(final-page "Session finished."))
|
|
|
|
|
|
|
|
|
|
))
|
