link loadfuncpp


procedure main()
	assignprog := loadfuncpp("./keyword.so", "assignprog", 1)
	assignprog("Silly")
	write(&progname)
end