%begin
%integer i
  %routine fred(%integer i)
    %routine jim(%integer k)
      k = i+1
      i = 9
    %end
    jim(5)
  %end
  i = 100
  fred(i)
%endofprogram