Scanf.scanf "%d %d %s" @@ fun a b s ->
  let c = Array.fold_left (+) 0 @@ Array.init (a + b + 1) @@ fun i -> if s.[i] = '-' then 1 else 0 in
  print_endline @@ if c = 1 && s.[a] = '-' then "Yes" else "No"