
link loadfuncpp

procedure main()
	myext := loadfuncpp("./isexternal.so", "myext", 0)
	ismine := loadfuncpp("./isexternal.so", "ismine", 1)
	x := myext()
	write(image(x))
	write(image(type(x)))
	write("is mine? ", ismine(x))
	write("is also mine? ", ismine(3))
end


