1 2 3
type t = Normal | Insert | Control let to_string = function Insert -> " I " | Normal -> " N " | Control -> " C "