password.hs

import qualified Data.Set as Set

fInput [] = []
fInput (_:b:c:others) =
    (words b, c):fInput others

solve' _ target [] ans
    | target /= [] = []
    | otherwise = ans
solve' dict target (p:ps) ans =
    let
        ntgt = (target ++ [p])
        btgt = Set.member ntgt dict
    in
        case btgt of
          True ->
              solve' dict [] ps (ntgt:ans)
          False ->
              solve' dict ntgt ps ans

solve (ws, pass) =
    let
        dict = Set.fromList ws
        ans = (solve' dict [] pass [])
    in
        case ans of
          [] -> "WRONG PASSWORD"
          _ -> unwords (reverse ans)
    
main = do
    interact $ unlines . fmap solve . fInput . tail . lines