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