use bigint;<>;print 0->bgcd(glob<>),$/while<>