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, z)) -> (x + 1, (y, z)))
          |> List.head

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