(use-modules (ice-9 format)) (define (hug x) (format #t "HUG ~a !\n" x))