(do((\ 1)(n 2(*(- 4(/ 2\))n)))((>(inc!\)15))(print n))