$i=1,s/\bd /$i++&&()/eg,/\n/||s/$/\n/,print"$_"x$i for<>