while[read -n1 C]{++a[C]};for((;i++<10)){for((j=a[i];j--)){o+=$i}};$o