let name ?(kind=Other) s = Name (s, kind)