(port-map(^s(if(#/xx|z|t$|d/s)(print s)))read-line)