module Main where

import Control.Monad
import Data.List (sort, group)

main :: IO ()
main = do
    ss <- getLine
    if any (> 1) . fmap length . group $ sort ss
        then putStrLn "NO"
        else putStrLn "YES"