(while:prn:apply *(map[/(-(* 2 n)_ -1)_](range 1(= n(read)))))