proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "" .} proc scan(): int = while true: let k = getchar_unlocked() if k < '0': break result = 10 * result + k.ord - '0'.ord proc solve(a,b:int):bool = var a = min(a,b) var b = max(a,b) if a == 0 : return b <= 1 if a mod 2 == 1 : if b mod 2 == 1 : return false return solve(a-1,b div 2) if b mod 2 == 1 : return solve(a div 2,b - 1) if solve(a div 2 , b - 1) : return true return solve(a - 1 , b div 2) let a = scan() let b = scan() if solve(a,b) : echo "YES" else: echo "NO"