import Control.Monad

main = do
  n <- readLn
  replicateM n $ do
         s <- getLine
         let
             f [] w g = g == 0
             f (x:xs) w g
               | x == 'W' = f xs (w+1) g
               | x == 'G' = f xs w (g+1)
               | w > 0 && g > 0 = f xs (w-1) (g-1)
               | otherwise = False
             sl = length s
             gn = length . filter (=='G') $ s
             rn = length . filter (=='R') $ s
          in putStrLn $ if gn == 0 || rn == 0 || gn /= rn || sl < gn * 3 || last s == 'W' || not (f s 0 0) then "impossible" else "possible"