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