import Control.Applicative ((<$>), (<*>))
import Data.List

main :: IO ()
main = do
  getLine
  solve <$> getl words <*> getl words >>= mapM_ putStrLn

solve :: [String] -> [String] -> [String]
solve ss ts = let Just (i, s, t) = find (\(_, x, y) -> x /= y) $ zip3 [1..] ss ts
              in [show i, s, t]

getl :: (String -> a) -> IO a
getl f = f <$> getLine