{for(gsub(/[[,]/,FS);$++i;)print i+=$i-1}