import System.IO
import Control.Monad
import Data.List

num :: (Num a) => String -> String -> a
num [] [] = 0
num (x:xs) (y:ys)
    | x == y = 1 + num xs ys
    | otherwise = num xs ys

percentage key sub = (num key sub) / (genericLength key)

passOrFail :: (Ord a, Fractional a) => a -> String
passOrFail x
    | x < 0.9 = "fail"
    | otherwise = "pass"

main :: IO ()
main = do
    key <- getLine
    input_line <- getLine
    let n = read input_line :: Int
    
    replicateM n $ do
      str <- getLine
      let p = passOrFail $ percentage key str
      putStrLn p
      return ()
    return ()