%begin; !Zsend
%include "inc:util.imp"

%on 9 %start
  %stop
%finish

openinput(1,cliparam); selectinput(1)
selectoutput(0); printsymbol(15)
setterminalmode(nopage)
%cycle
  printsymbol(readsymbol)
%repeat

%end
