import Data.List
import qualified Data.Map as Map

f::String->Bool
f (x:[])=True
f (x:y:xs)
   |x==y=False
   |otherwise=f (y:xs)

main =do
      t<-getLine
      putStrLn $ if f (sort t) then "YES" else "NO"