for(a<-"a";s=readLine grouped 2 toSeq;r=a to'z';c<-r)println(("|"/:r)((z,d)=>z+" #"(s.count(""+d+c==))).trim.tail)