(loop(format t"~D
"(1-(* #1=(1-(read))#1#))))