$_=join'',<>; @p=(0)x10; $p[$&]++for/\d/g;