f:0;while(a:?read\-line(?-,?-,~))#~do lsum((if 34=b:cint(v)then f:1-f,if f>0or b>32then ?princ(v)),v,charlist(a));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page