(value :q)
(lp)
(ld "sets.defpkg")