let split = fun (s:string) -> s.Split ' '

stdin.ReadLine () |> ignore
Seq.zip (stdin.ReadLine () |> split) (stdin.ReadLine () |> split)
|> Seq.mapi (fun i e -> i+1, e)
|> Seq.filter (fun (i, e) -> (fst e) <> (snd e))
|> Seq.head
|> fun (i, (a, b)) -> printf "%d\n%s\n%s\n" i a b