let kind_of_string = fun s ->
    fst (List.find (fun (_, s') -> s = s') kind_string_assoc)