#!/usr/local/bin/gosh (use srfi-1) (define (a-plus-abs-b a b) ((if (> b 0)+ -)a b))