リスト4.4に倣って以下のプログラムを作成し、ast.c, printast.cならびにbisonが出力したpicoc2.tab.cファイルとともにコンパイルする。
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "ast.h"
/* gen.hはなくてもよいかもしれない(皆さんの書き方に依存する) */
#include "gen.h"  
/* picoc2.tab.h は bison -d -tが出力したヘッダーファイル */
#include "picoc2.tab.h"
#include "printast.h"
#if YYDEBUG
extern int yydebug;
#endif
FILE  *af;
StmtNodePtr st;
typedef struct Tokens {
	int sort;
	int ival;
	char *name;
} Ttokens;
#define T_T(t) { t, 0, NULL }
#define T_INT(k) { NUM, k, NULL }
#define T_ID(n) { ID, 0, n }
#define T_CH(c) { c, 0, NULL }
/* 
	if( k<2 ){ return 1; }
	return fib(k-2)+fib(k-1);
を表すトークンの配列 */
Ttokens thetokens[] = {
	T_T(IF), T_CH('('), T_ID("k"), T_T(BLT), T_INT(2), T_CH(')'), T_CH('{'),
	  T_T(RETURN), T_INT(1), T_CH(';'), T_CH('}'),
	T_T(RETURN), T_ID("fib"), T_CH('('), T_ID("k"), T_T(SUB), T_INT(2), T_CH(')'),
	  T_T(ADD), T_ID("fib"), T_CH('('), T_ID("k"), T_T(SUB), T_INT(1), T_CH(')'),
	  T_CH(';'), T_CH(0) };
int yylex() {
	static int i=0;
	Ttokens *p = thetokens + i;
	i++;
	
	if(p->sort ==NUM)
		yylval.ival = p->ival;
	else if(p->sort==ID)
		yylval.name = p->name;
	return p->sort;
}
/* もし、bisonへの入力ファイル、例えばpicoc.yでyyerror()の中身を定義していれば、
multiple definition of `yyerror'などのコンパイルエラーが出る。その場合は
ここでの定義は不要なので、mainの前までを削除する */
int yyerror( char *msg ){
	fprintf( stderr, msg );
	exit( 1 );
}
int main( int argc, char **argv ){
#if YYDEBUG
int i;
	for( i=1; i<argc; i++ ){
		if( strcmp( argv[i], "-d" )==0 ) yydebug = 1;
	}
#endif
	/* 以下にthetokensに記述した関数と変数の定義を記述 */
	symAdd( SYM_FUNC, "fib", 1, 1, 0, NULL );
	symAdd( SYM_VAR, "k", 0, 0, 0, NULL );
	/* 構文解析を実行 */
	if( yyparse() ) return EXIT_FAILURE;
	/* 結果を出力 */
	printASTStmt( argc, argv, st );
	return EXIT_SUCCESS;
}