n=0;'-_'.chars{|c|gsub!(c){n+=1}&&(p n)}while gets