%option noyywrap
 
%{
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
void encode_word(const char* word);
void encode_string(const char* str);
void encode_number(const char* num);
void encode_variable(const char* var);
%}
 
DIGIT [0-9]
ID [a-zA-Z][a-zA-Z0-9_]*
NUM {DIGIT}+
STRING \"([^\"\\]|\\.)*\"
 
%%
 
"IF" { encode_word("\x01"); }
"THEN" { encode_word("\x02"); }
"END" { encode_word("\x03"); }
"FOR" { encode_word("\x04"); }
"TO" { encode_word("\x05"); }
"NEXT" { encode_word("\x06"); }
"WHILE" { encode_word("\x07"); }
"DO" { encode_word("\x08"); }
"SKIP" { encode_word("\x09"); }
"CONTINUE" { encode_word("\x0A"); }
"PRINT" { encode_word("\x0B"); }
"PRINTLN" { encode_word("\x0C"); }
"AND" { encode_word("\x0D"); }
"OR" { encode_word("\x0E"); }
"NOT" { encode_word("\x0F"); }
"=" { encode_word("\x11"); }
"<>" { encode_word("\x12"); }
"<=" { encode_word("\x13"); }
">=" { encode_word("\x14"); }
"<" { encode_word("\x15"); }
">" { encode_word("\x16"); }
 
{NUM} {
    char buf[32];
    snprintf(buf, sizeof(buf), "\x10%c%c", (yytext[0] >> 8) & 0xFF, yytext[0] & 0xFF);
    printf("%s", buf);
}
 
{ID} { encode_variable(yytext); }
 
{STRING} { encode_string(yytext); }
 
[ \t\n\r] ;
 
. { putchar(yytext[0]); }
 
%%
 
void encode_word(const char* word) {
    putchar(word[0]);
}
 
void encode_string(const char* str) {
    printf("%s", str);
}
 
void encode_number(const char* num) {
    unsigned short value = (unsigned short)strtoul(num, NULL, 10);
    printf("\x10%c%c", (value >> 8) & 0xFF, value & 0xFF);
}
 
void encode_variable(const char* var) {
    printf("\x17");
    while (*var) {
        putchar(*var++);
    }
    putchar('\x17');
}
 
int main(int argc, char** argv) {
    yylex();
    return 0;
}
 

JW9wdGlvbiBub3l5d3JhcAoKJXsKI2luY2x1ZGUgPHN0ZGlvLmg+CiNpbmNsdWRlIDxzdGRsaWIuaD4KI2luY2x1ZGUgPHN0cmluZy5oPgoKdm9pZCBlbmNvZGVfd29yZChjb25zdCBjaGFyKiB3b3JkKTsKdm9pZCBlbmNvZGVfc3RyaW5nKGNvbnN0IGNoYXIqIHN0cik7CnZvaWQgZW5jb2RlX251bWJlcihjb25zdCBjaGFyKiBudW0pOwp2b2lkIGVuY29kZV92YXJpYWJsZShjb25zdCBjaGFyKiB2YXIpOwolfQoKRElHSVQgWzAtOV0KSUQgW2EtekEtWl1bYS16QS1aMC05X10qCk5VTSB7RElHSVR9KwpTVFJJTkcgXCIoW15cIlxcXXxcXC4pKlwiCgolJQoKIklGIiB7IGVuY29kZV93b3JkKCJceDAxIik7IH0KIlRIRU4iIHsgZW5jb2RlX3dvcmQoIlx4MDIiKTsgfQoiRU5EIiB7IGVuY29kZV93b3JkKCJceDAzIik7IH0KIkZPUiIgeyBlbmNvZGVfd29yZCgiXHgwNCIpOyB9CiJUTyIgeyBlbmNvZGVfd29yZCgiXHgwNSIpOyB9CiJORVhUIiB7IGVuY29kZV93b3JkKCJceDA2Iik7IH0KIldISUxFIiB7IGVuY29kZV93b3JkKCJceDA3Iik7IH0KIkRPIiB7IGVuY29kZV93b3JkKCJceDA4Iik7IH0KIlNLSVAiIHsgZW5jb2RlX3dvcmQoIlx4MDkiKTsgfQoiQ09OVElOVUUiIHsgZW5jb2RlX3dvcmQoIlx4MEEiKTsgfQoiUFJJTlQiIHsgZW5jb2RlX3dvcmQoIlx4MEIiKTsgfQoiUFJJTlRMTiIgeyBlbmNvZGVfd29yZCgiXHgwQyIpOyB9CiJBTkQiIHsgZW5jb2RlX3dvcmQoIlx4MEQiKTsgfQoiT1IiIHsgZW5jb2RlX3dvcmQoIlx4MEUiKTsgfQoiTk9UIiB7IGVuY29kZV93b3JkKCJceDBGIik7IH0KIj0iIHsgZW5jb2RlX3dvcmQoIlx4MTEiKTsgfQoiPD4iIHsgZW5jb2RlX3dvcmQoIlx4MTIiKTsgfQoiPD0iIHsgZW5jb2RlX3dvcmQoIlx4MTMiKTsgfQoiPj0iIHsgZW5jb2RlX3dvcmQoIlx4MTQiKTsgfQoiPCIgeyBlbmNvZGVfd29yZCgiXHgxNSIpOyB9CiI+IiB7IGVuY29kZV93b3JkKCJceDE2Iik7IH0KCntOVU19IHsKICAgIGNoYXIgYnVmWzMyXTsKICAgIHNucHJpbnRmKGJ1Ziwgc2l6ZW9mKGJ1ZiksICJceDEwJWMlYyIsICh5eXRleHRbMF0gPj4gOCkgJiAweEZGLCB5eXRleHRbMF0gJiAweEZGKTsKICAgIHByaW50ZigiJXMiLCBidWYpOwp9Cgp7SUR9IHsgZW5jb2RlX3ZhcmlhYmxlKHl5dGV4dCk7IH0KCntTVFJJTkd9IHsgZW5jb2RlX3N0cmluZyh5eXRleHQpOyB9CgpbIFx0XG5ccl0gOwoKLiB7IHB1dGNoYXIoeXl0ZXh0WzBdKTsgfQoKJSUKCnZvaWQgZW5jb2RlX3dvcmQoY29uc3QgY2hhciogd29yZCkgewogICAgcHV0Y2hhcih3b3JkWzBdKTsKfQoKdm9pZCBlbmNvZGVfc3RyaW5nKGNvbnN0IGNoYXIqIHN0cikgewogICAgcHJpbnRmKCIlcyIsIHN0cik7Cn0KCnZvaWQgZW5jb2RlX251bWJlcihjb25zdCBjaGFyKiBudW0pIHsKICAgIHVuc2lnbmVkIHNob3J0IHZhbHVlID0gKHVuc2lnbmVkIHNob3J0KXN0cnRvdWwobnVtLCBOVUxMLCAxMCk7CiAgICBwcmludGYoIlx4MTAlYyVjIiwgKHZhbHVlID4+IDgpICYgMHhGRiwgdmFsdWUgJiAweEZGKTsKfQoKdm9pZCBlbmNvZGVfdmFyaWFibGUoY29uc3QgY2hhciogdmFyKSB7CiAgICBwcmludGYoIlx4MTciKTsKICAgIHdoaWxlICgqdmFyKSB7CiAgICAgICAgcHV0Y2hhcigqdmFyKyspOwogICAgfQogICAgcHV0Y2hhcignXHgxNycpOwp9CgppbnQgbWFpbihpbnQgYXJnYywgY2hhcioqIGFyZ3YpIHsKICAgIHl5bGV4KCk7CiAgICByZXR1cm4gMDsKfQo=