begin
   integer x = 0

   routine p
      routine q
         x = 1
      end
      routine r
         x = 2
      end
      q; r
   end

   p
   write(x, 0);  newline

end of program