(for i(- 1(= a(read)))(- a 1)(prn(+""(n-of(abs i)" "))(+""(n-of(-(*(- a(abs i))2)1)"*"))))