val prev_char : string -> int -> intval next_char : string -> int -> intval chars : string -> string listval column : string -> int -> intval byte_of_column : string -> int -> intval edit :
typed:string ->
pressed:(string -> bool) ->
string ->
int ->
string * int