sig
  exception Unknown
  val key_of_string : string -> Sdlkey.t * bool
  val shifted_char : char -> char
end