ipl/packs/loadfuncpp/examples/iterate.icn


1
2
3
4
5
6
7
8
9
10
11
12
13


link loadfuncpp


procedure main()
	total := loadfuncpp("./iterate.so", "iexample")
	write( total(g, [1,2,3,4,5]) )
end

procedure g(ls[])
	suspend !ls
end