%include "inc:util.imp"
%begin
%routine put(%integer k)
  k = k&255
  %if ' ' <= k < 127 %then printsymbol(k) %else printsymbol('_')
%end
%integer k ,i
  %cycle
    rhex(k)
    put(k>>i) %for i = 24,-8,0
  %repeat
%endofprogram