(use srfi-42)(read)(while(print(fold-ec 0(: i(read))(read)gcd)))