This is a variation of Leonid's answer that avoids the dependence on a context like "Test`" that must be empty:
SetAttributes[fq, {Listable, HoldAll}]; fq[sym_] := Block[{Internal`$ContextMarks = True},[ToString[Unevaluated[sym]]]ToString[Unevaluated[sym]]] fq[{fq, Print, Developer`$MaxMachineInteger}] (* {"Global`fq", "System`Print", "Developer`$MaxMachineInteger"} *)