externalinteger i = 1

externalroutine fred
  integer i = 2
  i = 3
end

begin
  integer i = 4
  routine fred
    integer i = 5
    i = 6
  end

  begin
    integer i = 7
    routine fred
      integer i = 8
      i = 9
    end
    i = 10
  end

  begin
    integer i = 11
    routine fred
      integer i = 12
      i = 13
    end
    i = 14
  end

  i = 15

endofprogram