<>;$W=$G=$R=!print/WR*$/|grep(++$$_*!${y/WGR/_WG/r}--,/./g)|$G?imp:p,ossible,$/for<>