link "../ilib/escape" procedure main() while write(escape(read())) end