(use srfi-42)(while(print(product-ec(: i 1(+(set! -(read))1))(/(+ - i)i))))