#!/usr/local/bin/gosh


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