<>;$w=$f=$g=$r=!print!(/^(W(?{$w+=$f=1})|G(??{$f=$w<++$g})|R(??{$g<++$r}))*$/&$g==$r&!$f)&&im,possible,$/for<>