while true
  all_lights on
  sleep k
  light_r off
  sleep k
  light_c off
  sleep k
  light_l off
  sleep k
  continue

routine update
  if view_top < element_pos.low_y
    make_gray view

LineTerminator = \r|\n|\r\n
InputCharacter = [^\r\n]

TraditionalComment = "/*" [^*] ~"*/" | "/*" "*"+ "*/"
EndOfLineComment = "//" {InputCharacter}* {LineTerminator}?

Comment = {TraditionalComment} | {EndOfLineComment}

%x YYINITIAL
%s STRING CHAR

%%

<YYINITIAL> {
  {Comment} {  }
  \" { yybegin(STRING); }
  \' { yybegin(CHAR); }
}

<STRING>("\"") { yybegin(YYINITIAL); printf("\""); }

<CHAR>("\'") { yybegin(YYINITIAL); printf("'"); }

<<EOF>> {}

%%

int main(int argc, const char *argv[]) {
  if (argc > 1)
    yyin = fopen(argv[1], "r");
  else
    yyin = stdin;

  yylex();

  return 0;
}

#include <stdio.h> 
#include <stdlib.h>

static int lex(const char *YYCURSOR, const char *YYLIMIT) {
  const char *YYMARKER;

  /*!re2c
    re2c:define:YYCTYPE      = char;
    re2c:define:YYFILL:naked = 1;
    re2c:define:YYFILL       = "return 0;";

    end = "\x00";
    bin = '0b' [01]+;
    oct = "0" [0-7]*;
    dec = [1-9][0-9]*;
    hex = '0x' [0-9a-fA-F]+;

    *       { printf("a"); }
    bin end { printf("a"); }
    oct end { printf("a"); }
    dec end { printf("a"); }
    hex end { printf("a"); }
  */

  return -1;
}

int main(int argc, const char *argv[]) {
  if (argc > 1) {
    FILE *lexf = fopen(argv[1], "rb");

    if (lexf == NULL) { perror("Cannot open file"); exit(-1); };

    fseek(lexf, 0, SEEK_END);
    const size_t fsize = (size_t) ftell(lexf);
    fseek(lexf, 0, SEEK_SET);

    char *buffer = (char*) malloc(fsize);
    fread(buffer, 1, fsize, lexf);

    int result = lex(buffer, buffer + fsize);

    free(buffer);
    fclose(lexf);

    return result;
  } else {
    fprintf(stderr, "Streaming is not supported\n");
  }
}

(object arglist)

def parse()
  sexp = []

  while (tok = token()) != EOS
    if tok.type == LPAREN
      sexp << parse()
    elseif tok.type == RPAREN
      return sexp
    sexp << objectize(tok)

  return sexp

(1 323 3444 (23333 (1) () 666.666) (((1))))

result = parse()
sexp = []
while (tok = token()) != EOS # Token is LPAREN (
sexp << parse() # recursive call self
  sexp = []
  while (tok = token()) != EOS
  # tok = 1
  sexp << objectize(tok) # [1]
  sexp << objectize(tok) # [1 323]
  sexp << objectize(tok) # [1 323 3444]
  sexp << parse() # [1 323 3444 [23333 [1] [] 666.666]]
  sexp << parse() # [1 323 3444 [23333 [1] [] 666.666] [[[1]]]]
  ... frame ommited ..

def heapParse()
  emultedStack = []

  while (tok = token()) != EOS
    if tok.type == LPAREN
      emulatedStack << []
    elseif tok.type == RPAREN
      emulatedStack[emulatedStack.lastIndex - 1] << emulatedStack.pop()

    emulatedStack[emulatedStack.lastIndex] << objectize(tok)

  return emultedStack