(define (add-abs a b) 
  ((if (> b 0) + -) a b )
  )

(print (add-abs 3 -4))