sub f{
  my %d;
  $d{$_}++ for grep /[a-z]/, split //, shift;
  for(a..z){
    if( ! $d{$_}){
      $d{$_} = 0
    }
  }
  return %d
}