begin
   integer a = 1

   routine p
      integer a = 2

      routine q
         integer a = 3

         routine r
            a = 4
         end

         r
         write(a, 0);  newline
      end

      q
      write(a, 0);  newline
   end

   p
   write(a, 0);  newline

end of program