{for(FS=i=s=_;$i=_$i;sub(/@/,$i,s))$i!=$++i&&s=s$i;$0=s}1