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