greet.ell


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

set greet {
	arg _name
	print 'hello ' @_name '\n'
}
set decr {
	arg _name
	set @_name (- @@_name 1)
}

set limit 2
for (map { arg _x; .. @_x ! } [
	world
	creator
	'darkness, my old friend'
]) {
	arg _whom
	greet @_whom
	if (= 0 (decr limit)) { break }
}