fix parse bug

jk.c

@@ -2149,7 +2149,7 @@ Nt*PPa(Pt*parser,Nt*a,enum Tkt tag){Tkt*tok;
   if((tok=Plook(parser,0))&&(tok->tag==tag||(tag==T_NUM&&tok->tag==T_BNUM))){Ar*as=An();
     Ap(as,a->v);
     do{a=PPatom(parser);
-      Ap(as,a->v);}WH((tok=Plook(parser,0))&&tok->tag==tag);R Nnl(Vna(as));}
+      Ap(as,a->v);}WH((tok=Plook(parser,0))&&(tok->tag==tag||(tag==T_NUM&&tok->tag==T_BNUM)));R Nnl(Vna(as));}
   R N;}
 Nt*_PPnoun(Pt*parser){Nt*n;
   Nt*a=PPatom(parser);