let () =
  let slst = Scanf.scanf "%1s%1s%1s%1s\n" (fun a b c d -> [a; b; c; d]) in
  let countP = List.length (List.filter (fun x -> x = "+") slst) in
  let countM = List.length (List.filter (fun x -> x = "-") slst) in
  Printf.printf "%d\n" (0 + countP - countM)