apple-0.1.0.0: include/apple_p.h

#include"./apple_abi.h"

#define pf printf
#define nl pf("\n")
#define pj(x) pf("%lld",x)
#define PA(s,n,x) DO(i,t,{pf(s,x[i]);if (i!=n-1){pf(",");}});nl

void paf(U xs) {
    J* dims=xs;
    J rnk=dims[0];dims+=1;
    pj(rnk);pf(" ");
    J t=1;J d;
    DO(i,rnk,{d=dims[i];t*=d;pj(d);if (i!=rnk-1) {pf(",");}}) nl;
    F* e=xs+(rnk+1)*sizeof(F);
    PA("%f",t,e);
}