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