main = putStrLn . show . (flip div 3) . length . filter (/='-') =<< getLine