4.3BSD/usr/contrib/icon/libtest/t-escape.icn

link "../ilib/escape"

procedure main()
   while write(escape(read()))
end