RosettaCodeData/Task/String-concatenation/Scheme/string-concatenation.ss

(define s "hello")
(display (string-append s " literal"))
(newline)
(define s1 (string-append s " literal"))
(display s1)
(newline)