map{printf$_,$$_}grep{s/\w*.$/%x
/s;!$$_*(($$_||=1)*=hex$&)}<>