begin
   integer g = 0

   routine p
      integer m = 10

      routine q
         g = 1
         m = 11
      end

      q
      write(m, 0);  newline
   end

   p
   write(g, 0);  newline

end of program