#  Test dynamic loading with a few standard cfuncs.

link cfunc

procedure main()
   local i

   every i := 500 to 513 do
      gen(bitcount, i)

   write()
   gen(vword, 314159)
   gen(lgconv, 10 ^ 30)
   gen(unpack, "abcd")
   gen(pack, 1684234849)
end

procedure gen(p, a)
   write(image(p), "(", image(a), ") = ", p(a) | "[failed]")
   return
end