let () = let a, b = Scanf.scanf "%d %d " (fun a b -> a, b) in let rec doit a b = if b = 0 then a else doit (a lxor b) ((a land b) lsl 1) in doit a b |> Printf.printf "%d\n"