(do*((s(read))(i s(1+ i)))((format(>(if(= s 0)43 6)i)"~A
"i)))