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