(use srfi-42)(while(print(product-ec(: i 1(+(set! -(read))1))(/(+ - i)i))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page