let rec f a b = if a=0L || b=0L then true else match (a%2L,b%2L) with | (1L,1L) -> false | (0L,1L) -> f (a/2L) (b-1L) | (1L,0L) -> f (a-1L) (b/2L) | (_,_) -> (f (a/2L) (b-1L)) || (f (a-1L) (b/2L)) stdin.ReadLine().Split(' ') |> Array.map int64 |> fun a -> f a.[0] a.[1] |> fun b -> if b then "Yes" else "No" |> printfn "%s"