main :: IO ()
main = do
  n <- readLn :: IO Int
  s <- fmap words getLine
  t <- fmap words getLine
  
  mapM_ (mapM_ putStrLn . (\(a,b,c) -> [show a,b,c])) $ filter (\(_,x,y) -> x /= y) $ zip3 [1..] s t