(port-map(^x(or(#/^[dgBt]/#0=#`",x ")(display #0#)))read)