(loop for i from 0 for s across (read-line)do(if(evenp i)(format t "~a" s)))