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));