(use scheme.bitwise)
(use scheme.list)

(define yuki1713
  (let*
    (
      (trick (read))
      (treat (read))
      (fact (^x (apply * (iota x 1 1))))
      (ans (fact (bitwise-ior trick treat)))
    )
    (write ans)
    (newline)))