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

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

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