print"$System.in".replaceAll(/\w+/){w->w.count+"_"+w}