begin
  owninteger fred, jim=123
endofprogram