i=OFS=FS=_;$0=$0{for(;i++<14;)a[i]=$i=a[i]$i}END{print}