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