load(vect)$errcatch(sum((l:map(parse_string,split(?read\-line())),l:express(rest(l,-3)~rest(l,3)),printf(?t,"~d ~d ~d ",l[1],l[2],l[3])),i,1,99))$