%include "i:util.inc"
%include "utils:heap.inc"
%begin
%integer i
%recordformat f(%integer i,%string(2)s)
%record(f)%name r
  %cycle
    readsymbol(i)
    %exitif i='e'
    %if i='g' %start
      read(i); phex(heapget(i)); newline
    %elseif i='p'
      heapput(hex)
    %elseif i='a'
      heapanal
    %elseif i='n'
      r == new(sizeof(r))
    %elseif i='d'
      dispose(r)
    %elseif i='i'
      read(i); heapinit(i)
    %finish
  %repeat
%end
