(do('#0=(read))((format t"~D
"(apply'gcd(loop repeat #0#collect #0#)))))