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