Scanf.scanf "%d %d" (fun a b ->
    let rec fact k = if k = 1 then 1 else k * fact (k - 1) in
    Printf.printf "%d\n" @@ fact (a lor b)
)