import Data.List
import Data.Maybe

main = do
  getLine
  ss <- words <$> getLine
  ts <- words <$> getLine
  let (s,t) = head $ filter (uncurry (/=)) $ zip ss ts
  print (fromJust (findIndex (==s) ss) + 1)
  putStrLn s
  putStrLn t