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