let a=read_line();;for i=0to 999do
try Printf.printf"%c: %d
"a.[i](String.index_from a(i+1)a.[i]-i)with _->()done