Список всех глобальных переменных

Как отмечалось в другом месте , вы можете перечислить все определяемые пользователем символы следующим образом:

Names["Global`*"]

Но я бы хотел найти только свои глобальные переменные (я нахожусь в процессе сложной отладки) , а не определения моих функций. Что-то вроде этого близко:

Select[Names["Global`*"], Head@Symbol[#]=!=Symbol && Head@Symbol[#]=!=Function&]

Но здесь не хватает переменных, значение которых является символом (возможно, у меня x = Pi ).

Я мог бы, вероятно, превратить эту штуку в представление, но, возможно, есть более чистый, более прямой способ?