END{OFS=a[n=split("\"'{[:\$%`#.@?*-",a,_)]
NF=21
for(s=$0;p=OFS=a[--n];s=$0r p s p r$0)NF=gsub(r=RS,p r p,s)+23;print s}