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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page