#!/usr/bin/env gosh
(read-line)
(let ((gears (read (open-input-string (string-append "(" (read-line) ")")))))
  (define (iter lst acc)
    (if (null? lst)
        acc
        (iter (cdr lst) (/ (car lst) acc))))
  (display (iter (cdr gears) (car gears)))
  (newline))