(display(port->string(open-input-file"test.scm")));)))"mcs.tset"elif-tupni-nepo(gnirts>-trop(yalpsid(