(import
  (scheme base)
  (scheme read)
  (scheme write)
  (srfi 152)
)

(define yuki9012
  (begin
    (display "a + b = ")
    (write (apply + (map string->number (string-split (read-line) ","))))
    (newline)
  )
)