(set'i 0)(loop(if(eq(read)'=)(format t"~A
"(decf i))(incf i)))