import Control.Applicative
import Data.List 

main :: IO ()
main = do
    ns <- map read . words <$> getLine
    putStrLn $ show (length (qsort ns))
    
qsort :: [Int] -> [Int]
qsort []   = []
qsort (x:xs) = qsort smaller ++ [x] ++ qsort larger
               where
                  smaller = [a | a <- xs, a < x]
                  larger  = [b | b <- xs, b > x]