import Control.Monad

main = do
  n <- readLn
  replicateM n $ do
         s <- getLine
         let
             f [] g = g == 0
             f (x:xs) g
               | x == 'W' = f xs g
               | x == 'G' = f xs (g+1)
               | g > 0 = f xs (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 || not (f s 0) then "impossible" else "possible"