Scanf.scanf "%d %d\n" (fun a b -> Printf.printf "%d\n" ((a lor b) + (a land b)))