import Data.List

main :: IO ()
main = do
  str <- getLine
  putStrLn $ solve str

solve :: String -> String
solve str = if all (\ls -> length ls == 1) (group (sort str))
            then "yes"
            else "no"
