Ясно, что гуглятину я завалил, так что ы:
main = do
n <- readLn
sequence_ $ map (\x -> putStr ("Case #" ++ show x ++ ": ") >> forCase) [1..n]

forCase :: IO ()
forCase = do
s <- readLn
engines <- sequence $ take s $ repeat getLine
q <- readLn
queries <- sequence $ take q $ repeat getLine
print $ max 0 $ solve engines queries

solve :: [String] -> [String] -> Int
solve _ [] = -1
solve e q = 1 + solve e (drop (stuff e q) q)
stuff e q = maximum $ map (lenForEngine q) e

lenForEngine q e = length $ takeWhile (/= e) q

По ходу дела люминофор с лампочки без разбивания её апстеностащить не получится. А хочется, и чтобы оставить в целости обе части для возможного воссоединения .
Мосх отсох настолько, что не могу придумать как закрепить динамку на веле. Гуглёж показал, что факописатели представляют себе факочитателей сильно более умными, чем я, и не описывают премудростей ыыы.