[a,b,c]:split(?read\-line(),",");v:eval_string;a:v(a);sum(printf(?t,"~a~a ",smake(a:mod(a*8,13)," "),c),i,1,v(b));