(while(read)=> x(print((rec,\(if(=\ 0)1(*,(-\ 1)(/(+\ x)\))))x)))