diagnose 16_800F  { Mon Codes ! Mon ICode | Mon Line | Mon Debug }
own integer Outer = 57
begin
   routine spec Inner ( integer A )
   integer i, j = 42, k
   routine Inner ( integer x )
      const integer Foo = 99
      own integer Own
      routine Inner
         own integer Own
         integer Inner = 0
         x = 33
         Own = Outer
      end
      Own = Foo
      j = 17
      k = 5
      x = 25
      Inner
   end
   Inner(0)
   Print String("Outer j=")
   Write(j, 0)
   Newline
endofprogram