main :: IO ()
main = do
  s <- getLine :: IO String
  putStrLn $ if fil s then "yes" else "no"
   
fil :: String -> Bool
fil [] = True
fil [_] = True
fil (x:xs)
  |mempty /= filter (==x) xs = False
  |otherwise = fil xs

