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