type t =
Ascii of char
| Code of int
| Ctrl of int
| Fn of int
| Backspace
| Delete
| Escape
| Insert
| Enter
| Up
| Down
| Left
| Right
| Next
| Prior
| Home
| End
val to_string : t -> string