let f(a,b)=a<>b let R() = stdin.ReadLine() R()|>ignore Seq.zip (R()) (R()) |> Seq.filter f |> Seq.length |> printfn "%d"