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

@(define (output-charset num cset)
  @list{
    unsigned char @(format "cset~a" num) [] = {
      @(string-join (map number->string cset) ",")
    };
    size_t @(format "cset~a_size" num) = @(length cset);

  })

@(for/list ([i (in-naturals)] [cset (in-vector pattern)])
  (output-charset i cset))

int main() {
    char buf [ @(+ 2 (vector-length pattern)) ];
    buf [ @(vector-length pattern) ] = '\n';
    buf [ @(add1 (vector-length pattern)) ] = '\0';
    @(for/list ([num (in-naturals)] [cset (in-vector pattern)])
      (define iter (format "i~a" num))
      (define cset (format "cset~a" num))
      (define csetsize (format "cset~a_size" num))
      @list{
        for (size_t @iter = 0; @iter < @csetsize ; @iter ++) @"{"
          @"buf[" @num @"]" = @cset @"[" @iter @"];"
          @"\n"
      })

    fwrite(buf, 1, @(add1 (vector-length pattern)), stdout);

    @(for/list ([cset (in-vector pattern)]) "}")
}