; Section 2.9 - Input and Output (Page 18)
; Zachary Murray (zmurray@mix.wvu.edu)

; Example 1 - Page 18

; (format t "~A plus ~A equals ~A.~%" 2 3 (+ 2 3))

(println (format "%s plus %s equals %s." 2 3 (+ 2 3)))

; Example 2 - Page 19

; (defn askem (str)
;   (format t "~A" str)
;   (read))
; (askem "How old are you? ")

(defn askem [str]
  (print str)
  (flush)
  (read-line))
(askem "How old are you? ")