map{$0{$_}++}split//,$_=<>; @0=map{[$_,$0{$_},$_]}keys%0;