#!/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))))
  (define r (iter (cdr gears) (car gears)))
  (if (integer? r)
      (display (format "~D/~D" r 1))
      (display r))
  (newline))