Blob


1 (define (a-plus-abs-b a b)
2 ((if (> b 0) + -) a b))