%begin
  %integermap fred
    %owninteger jim = 1
    %result == jim
  %end
  %if fred = 1 %then %stop
%endofprogram