DELIMITERS = "<$.>" ;

MAPPING-PREFIX =  ;

LIST @ACC = @<ACC @ACC> ;
LIST @PIV = @<PIV @PIV> ;
LIST @P< = @P< ;
LIST N-ANIM = <H> <Hfam> <Hprof> <Hattr> <A> ;
LIST PRP = PRP ;

BEFORE-SECTIONS

ADD (@parent-deep) ("o") (p* ("bater")) ;
ADD (@parent-deep-error) ("o") (p ("bater")) ;

ADD (@child-deep) ("bater") (c* ("o")) ;
ADD (@child-deep-error) ("bater") (c ("o")) ;

ADD (@self-or-child) ("em") (cS (PRP)) ;
ADD (@self-or-child-error) ("em") (c (PRP)) ;

ADD (@self-or-parent) ("em") (pS (PRP)) ;
ADD (@self-or-parent-error) ("em") (p (PRP)) ;

MAP (DES) TARGET @P< (*-1 PRP LINK 0 ("em") LINK 0 @PIV LINK p ("bater")) (NOT 0 N-ANIM) ;
MAP (PAT) TARGET @P< (*-1 PRP LINK 0 ("em") LINK p ("bater") LINK NONE c @ACC) ;
MAP (PAT EXP) TARGET @ACC (p ("bater")) ;
