%begin
  %integer fred
  %integer %fn matched
    %result = 1
  %end
  %if matched = 1 %then fred = 1
%endofprogram