n:0;while 0#(x:?read\-line(?-,?-,0))do printf(?t,"~v,,,@a
",n:n+slength(x),x);