219c
\expandafter\def\csname grq \endcsname{%
.
g/[^%]$/s//&%/
w
q