
link loadfuncpp

procedure main()
    activate := loadfuncpp("./coexp.so", "activate")
    refresh  := loadfuncpp("./coexp.so", "refresh")
	x := create 1 to 7
	@x
	@x
	write( activate(x) )
	x := refresh(x)
	write( activate(x) )
end


