begin
   integer a = 1

   routine p
      integer b = 2

      routine q
         a = 10
         b = 20
      end

      q
      write(b, 0);  newline
   end

   p
   write(a,0);  newline
end of program