(use srfi-1)(while(print(fold lcm 1(iota(read)1))))