(use scheme.bitwise)
(define a (read))
(define b (read))
(define (f n) (if (zero? n) 1 (* n (f (- n 1)))))
(print (bitwise-or a (f b)))