##### LM #####
lex
	literal `- `= `; `{ `} `< `> `* `->
	literal `struct `string `bytes
		`unsigned `long `int
		`list `message `option

	token id /[A-Za-z_][A-Za-z_0-9]*/
	token number /[0-9]+/

	ignore /[ \t\r\n]+/
end

def type
	[id]
|	[`int]
|	[id `*]

def decl
	[type id `;]

def struct_def
	[`struct Id: id `{ decl* `} `;]

def message_def
	ID: int
	[`message id `;]

def definition
	[struct_def]
|	[message_def]

def shared_queue
	[definition*]

cons SQ: shared_queue [
	"
	"struct Signal
	"{
	"	int signum;
	"};
	"
	"struct Foo
	"{
	"	int signum;
	"};
	"
	"message Signal;
	"
]

print( SQ )

##### EXP #####

struct Signal
{
	int signum;
};

struct Foo
{
	int signum;
};

message Signal;