(use scheme.bitwise) (define (main args) (let* ([a (read)] [b (read)]) (print (+ (bitwise-ior a b) (bitwise-and a b)))) 0)