open Hashtbl;;let t=create 26 in let rec f()=let l=read_line()in Bytes.iter(fun c->if c>='A'&&c<='Z'||c>='a'&&c<='z'then let x=(if c>='A'&&c<='Z'then Char.chr(Char.code c+32)else c)in if mem t x then add t x(find t x+1)else add t x 1)l;f()in try f()with _->Bytes.iter(fun c->Printf.printf"%c : %d
"c(if mem t c then find t c else 0))"abcdefghijklmnopqrstuvwxyz"