1 (define (f1 x) (* 2 (f2 x)))
2 (display "hello from m4")
5 (c-declare #<<c-declare-end
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"))