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))$
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page