;; simple-add-2.sal -- example initializing variables with read ;; (c) 2008 by Roger B. Dannenberg define function simple-add() begin with x, y exec format(#t, "Please enter a number ") set x = read() exec format(#t, "Please enter another number ") set y = read() exec format(#t, "~A plus ~A equals ~A~%", x, y, x + y) end exec simple-add()