related to question in ragel-users mailing-list.

test.rl

%%{
  machine lisp;

  integer = '-'? . ('0'|[1-9][0-9]*);
  string = '"' . (any - '"') . '"';
  list = '(' . (integer|string|list)* . ')';

  main := list;
}%%

%% write data;
%% write init;
%% write exec;