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