(pr(#(*%(-% 1)1/2)(-(read)1)))