sig
  type t =
      LShift
    | RShift
    | LCtrl
    | RCtrl
    | LAlt
    | RAlt
    | LGUI
    | RGUI
    | NUM
    | CAPS
    | MODE
  val to_string : Sdlkeymod.t -> string
  val of_string : string -> Sdlkeymod.t
end