open Batteries
open Printf
let () =
  let s = Scanf.scanf "%s " (fun a -> a) in
  let c_l = String.to_list s in

  let pl = 
    List.filter (fun x -> x = '+') c_l |>
    List.length
  in
  let mi = 4 - pl in

  Printf.printf "%d\n" @@
  (pl*1) - (mi*1)
