link loadfuncpp


procedure main()
	sum10 := loadfuncpp("./iterate.so", "sum10", 2)
	write( sum10(f,[]) )
end

procedure f()
	suspend 1 to 15
end