type t = [ `Backspace
| `Char of char
| `Delete
| `Down
| `End
| `Eof
| `Home
| `Left
| `Newline
| `Right
| `Tab
| `Unknown_escape of string * int option * int option
| `Up ]
val get : unit -> t