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