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