%include "inc:util.imp"
%begin
%recordformat f(%integer a,b,c,d,e)
%record(f)%name r,s,t
%integer i,j
  %routine show
  %option "-nocheck"
  %integer a = addr(r)-4
    %for i = 1,1,3 %cycle
      %for j = 1,1,6 %cycle
        phex(integer(a)); a = a+4; space
      %repeat
      newline
    %repeat
  %end
  mark
  r == new(r); r_a = 16_11; r_b = 16_12; r_c = 16_13; r_d = 16_14; r_e = 16_15
  s == new(s); s_a = 16_21; s_b = 16_22; s_c = 16_23; s_d = 16_24; s_e = 16_25
  t == new(t); t_a = 16_31; t_b = 16_32; t_c = 16_33; t_d = 16_34; t_e = 16_35
  show
  dispose(s)
  show
  release
  show
%endofprogram
%endofprogram