module Main where

import Control.Applicative

main :: IO ()
main = print =<< flip div 3 . length . filter (/='-') <$> getLine