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