(while(#(when%(loop[s(reverse %)i 0 res()](if-let[c(first s)](recur(rest s)(if(= i 3)1(inc i))(cons(if(= i 3)(str c",")c)res))(println(apply str res))))1)(read-line)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).