test/accum1.lm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

lex start
{
	ignore /space+/
	literal '*', '(', ')'
	token id /[a-zA-Z_]+/
}

def item 
	[id]
|	['(' item* ')']

def start 
	[item*]

parse Input: start[ stdin ]
InputTree: start = Input.tree

cons Output: accum<start> []

for Id: id in InputTree {
	send Output
		"( [^Id] )
}

S: start = Output()

print( S '\n' )