%include "inc:dmack.imp"
%begin
%constinteger lf=10,cr=13
%integer x
  dmacksetup(-1)
  %cycle
    dmackprintstring("Hello:")
    %cycle
      x = dmackreadsymbol
      dmackprintsymbol(x); dmackprintsymbol(lf) %if x=cr
    %repeatuntil x=cr
  %repeat
%end
