tests/pend.bth


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

(def xs [
	(, 10)
	(, [100 200])

	(, 22 33)
	(, 11 [111 222])
	(, [333 444] 99)
	(, [555 666] [777 888])

	(, 10 11 12)
	(, 10 11 [20 30])
	(, 10 [222 333] 99)
	(, 10 [22 33] [44 55])
	(, [100 200] 33 44)
	(, [100 200] 33 [444 555])
	(, [100 200] [33 44] 55)
	(, [100 200] [333 444] [555 666])

	(, [])
	(, [1])
	(, 10 [])
	(, [] 20)
	(, [] [])	
])
(each (x xs) (say x))