open System;

let N = Console.ReadLine()
let S = Console.ReadLine().Split(' ') |> Array.toList
let T = Console.ReadLine().Split(' ') |> Array.toList

let A = List.zip S T
let B = A |> List.indexed
          |> List.filter (fun (x, (y, z)) -> y <> z)
          |> List.map (fun (x, y) -> (x + 1, y))
          |> List.head

B |> fun (x, (y, z)) -> printfn "%A" x
                        printfn "%s" y
                        printfn "%s" z