(use srfi-42)(do-ec(: c(read-line))(print(string-ec(: d #\A c)d)))