main :: IO () main = do n <- (read :: String -> Int) <$> getLine s1 <- words <$> getLine s2 <- words <$> getLine putStr $ (\[(a, b, c)] -> show a ++ "\n" ++ b ++ "\n" ++ c ++ "\n") $ filter (\(ix, s, t) -> s /= t) $ zip3 [1..n] s1 s2