%begin
%include "inc:qsart.imp"
%integer k
  qsartsetup
  qsartprintstring("Hello")
  qsartreadsymbol(k) %and qsartprintsymbol(k) %until k&127=nl
%end
