((rfn f,n(or(> 0 --.n)(on i"123"(f(+"   "(prn:+ .,i)".")n))))""(read))