let keyhit_spec ?(mods= !default_modifiers) ?(mask= !default_mask) key = let n_mods = int_of_modifiers mods in let n_mask = lnot (int_of_modifiers mask) in (n_mods, n_mask, key)