let klass_to_variables aklass = let vars members = fst (either_split (List.map member_split members)) in let s = aklass.sections in [(Publics, vars s.publics); (Protects, vars s.protects); (Privates, vars s.privates)]