(port-map(^r(if(#/[prx]./r)(print r)))read-line)