import Text.Printf main=interact(\s->unlines[printf"%c:%3d"c$length[1|x<-s,x==c]|c<-['A'..'Z']++['a'..'z']])