$i=<>;@r=a..z;map{$x=$_;$s="";map{$s.=$i=~/^(..)*$_$x/?"#":" "}@r;$s=~/ *$/;print$`,$/}@r