begin
   integer x = 1

   routine p
      x = 5

      routine q
         x = 9
      end

      q
   end

   p
   write(x, 0);  newline

end of program