1 665c255d 2023-08-04 jrmu (define (a-plus-abs-b a b)
2 665c255d 2023-08-04 jrmu   ((if (> b 0) + -) a b))