read s IFS
(eval a=$\{s:{35..0}':1}
:${s/$a*$a}
b[35-${#_}]+=$a'
echo "${b[*]}")
$s||. *