import Text.Printf
main=do x<-getContents;mapM(\c->printf"%c: %2d\n"c.length$filter(==c)x)$['A'..'Z']++['a'..'z']