(loop for i from 0 for s across (read-line)do(if(evenp i)(format t "~a" s)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page