(use srfi-13)(do('print,string-upcase`string-downcase)(#f)',#0=(read-line)'`#0#)