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