#define F1(f)   A f(    A w)
#define F2(f)   A f(A a,A w) 
#define DF1(f)  A f(    A w,A self)
#define DF2(f)  A f(A a,A w,A self)

 extern F2(repeat);
 F2(repeat){...}

#define ASSERT(b,e) \
        {if(!(b)){jsignal(e); R 0;}}

 ASSERT(1>=AR(w),EVRANK);
 ASSERT(q>=0,EVDOMAIN);

Number of occurrences: