#lang plait
(define (output n)
  (display n))

(define (get-num/k prompt k)
  (begin
    (display prompt)
    (k (s-exp->number (read)))))

(get-num/k "First number: "
  (lambda (<*1>)
    (get-num/k "Second number: "
      (lambda (<*2>)
        (output (+ <*1> <*2>))))))