let () =
    let s = read_line () in
    let n = String.length s 
    and acc = ref 0 in
    for i = 0 to n - 1 do
      let n = int_of_string @@ Char.escaped s.[i] in
      acc := !acc + n
    done ;
    print_int !acc