(n-of((= a(cdr:ssexpand:read))0)(++ a.1(trunc:*(prn a.1)a.2 .01)))