(dotimes(i(set! +(read)))(format #t"~,,v,vA~A
"(- + 2)(if(< 0 i 99)#\0 #\1)1(if(> + 1)1"")))