1(define (f1 x) (* 2 (f2 x))) 2(display "hello from m4") 3(newline) 4 5(c-declare #<<c-declare-end 6#include "x.h" 7c-declare-end 8) 9(define x-initialize (c-lambda (char-string) bool "x_initialize")) 10(define x-display-name (c-lambda () char-string "x_display_name")) 11(define x-bell (c-lambda (int) void "x_bell")) 12