(let [s (.split #" " (read-line) )
      n (Integer/parseInt (get s 0))
      m (Integer/parseInt (get s 1))] 
      (println (- (+ n m) 2)))