(princ(*(set'n(1-(read)))(1- n)1/2))