{for($0=$(FS=_);c=_$++j;i-=c<0)printf$++i=c~+c?$(i-c):c}