begin
routinespec
jim
integer
i i = 1
routine
jim i = 2
end
endofprogram