(do[(i(-(set! +(read))))'abs]((=(inc! i)+))(#0=format #t"~v,@a
"#1=(-(* + 2)'i 1)(#0#"~v,,,'*a"(- #1#'i)"")))