lex_by_file( FileName ) :-
	get_input_from_file( FileName, TokenList ),
	lex( TokenList, OutputList ),
	%write_output( OutputList ), !.
	maplist(writeln,OutputList),!.
 
%{
#include <stdio.h>
%}
 
DIGIT [0-9]
WORD [a-zA-Z]+
 
%%
{DIGIT}+    { printf("Input is a number: %s\n", yytext); }
{WORD}      { printf("Input is a word: %s\n", yytext); }
.           { printf("Invalid input: %s\n", yytext); }
 
%%
 
int main() {
    yylex();
    return 0;
}
 

bGV4X2J5X2ZpbGUoIEZpbGVOYW1lICkgOi0KCWdldF9pbnB1dF9mcm9tX2ZpbGUoIEZpbGVOYW1lLCBUb2tlbkxpc3QgKSwKCWxleCggVG9rZW5MaXN0LCBPdXRwdXRMaXN0ICksCgkld3JpdGVfb3V0cHV0KCBPdXRwdXRMaXN0ICksICEuCgltYXBsaXN0KHdyaXRlbG4sT3V0cHV0TGlzdCksIS4KCiV7CiNpbmNsdWRlIDxzdGRpby5oPgolfQoKRElHSVQgWzAtOV0KV09SRCBbYS16QS1aXSsKCiUlCntESUdJVH0rICAgIHsgcHJpbnRmKCJJbnB1dCBpcyBhIG51bWJlcjogJXNcbiIsIHl5dGV4dCk7IH0Ke1dPUkR9ICAgICAgeyBwcmludGYoIklucHV0IGlzIGEgd29yZDogJXNcbiIsIHl5dGV4dCk7IH0KLiAgICAgICAgICAgeyBwcmludGYoIkludmFsaWQgaW5wdXQ6ICVzXG4iLCB5eXRleHQpOyB9CgolJQoKaW50IG1haW4oKSB7CiAgICB5eWxleCgpOwogICAgcmV0dXJuIDA7Cn0K