
link loadfuncpp

procedure main()
	iexample := loadfuncpp("./extwidget.so", "iexample")
	external := iexample()
	external2 := copy(external)
	write( type(external) )
	write( image(external) )
	write( type(external2) )
	write( image(external2) )
end


