let () = Scanf.scanf "%d\n%s\n%s\n" @@ fun n s t -> let ans = ref 0 in for i = 0 to n - 1 do if s.[i] <> t.[i] then ans := !ans + 1 done; Printf.printf "%d\n" !ans