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