sumDigits n =
    if null n
       then 0
    else (read [(head n)] :: Integer) + (sumDigits (tail n))

main= do
    line <- getLine
    --let num = read line :: Integer
    --print(read (sumDigits line) :: Integer)
    print(sumDigits line)