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

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

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