function [m_exist, n_exist] = ntest ()
  global x
  x = 3;
  n_exist = nest ();
  m_exist = exist ('x', 'var')
  function n_exist = nest ()
    clear x
    n_exist = exist ('x', 'var')
  end
end
