begin
   integer x = 1

   routine p
      integer x = 2

      routine q
         x = 3
      end

      q
      write(x, 0);  newline
   end

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