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