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