(set 'QA:primes '(
  (!= 5658) 
  ($ 24597) 
  (% 10231) 
  (& 33049) 
  (* 28119) 
  (+ 15827) 
  (- 33262) 
  (/ 21301) 
  (< 3076) 
  (<< 33749) 
  (<= 28658) 
  (= 2834) 
  (> 2824) 
  (>= 28624) 
  (>> 33684) 
  (NaN? 7313) 
  (^ 34421) 
  (abs 21288) 
  (acos 21191) 
  (acosh 28306) 
  (add 1185) 
  (address 5696) 
  (amb 19766) 
  (and 24425) 
  (append 756) 
  (apply 2279) 
  (args 9188) 
  (array 1387) 
  (array-list 1993) 
  (array? 2271) 
  (asin 7980) 
  (asinh 9204) 
  (assoc 2027) 
  (atan 14606) 
  (atan2 22063) 
  (atanh 21181) 
  (atom? 15481) 
  (base64-dec 2787) 
  (base64-enc 1707) 
  (bayes-query 14510) 
  (bayes-train 1604) 
  (begin 
   19205) 
  (beta 17323) 
  (betai 14527) 
  (bind 6211) 
  (binomial 17391) 
  (bits 2688) 
  (case 7069) 
  (catch 2363) 
  (ceil 34878) 
  (char 1640) 
  (chop 2053) 
  (clean 2981) 
  (collect 7518) 
  (cond 
   4828) 
  (cons 5846) 
  (constant 24160) 
  (context 22132) 
  (context? 33114) 
  (copy 11132) 
  (cos 21913) 
  (cosh 16938) 
  (count 1324) 
  (cpymem 7855) 
  (crc32 21335) 
  (crit-chi2 430) 
  (crit-z 4361) 
  (curry 1138) 
  (date 1439) 
  (date-value 27137) 
  (dec 8270) 
  (def-new 6521) 
  (default 877) 
  (define 3357) 
  (define-macro 3363) 
  (delete 269) 
  (det 5392) 
  (difference 1058) 
  (div 15700) 
  (do-until 5461) 
  (do-while 1019) 
  (doargs 11888) 
  (dolist 1469) 
  (dostring 5945) 
  (dotimes 2615) 
  (dotree 138) 
  (dump 10765) 
  (dup 2287) 
  (empty? 4284) 
  (encrypt 6777) 
  (ends-with 1038) 
  (env 782) 
  (erf 21385) 
  (error-event 36602) 
  (eval 9514) 
  (eval-string 3228) 
  (exists 984) 
  (exp 16541) 
  (expand 1149) 
  (explode 923) 
  (factor 413) 
  (fft 9372) 
  (filter 1598) 
  (find 499) 
  (find-all 586) 
  (first 2452) 
  (flat 4723) 
  (float 23719) 
  (float? 50412) 
  (floor 35995) 
  (flt 36479) 
  (for 5257) 
  (for-all 1978) 
  (format 114) 
  (fv 20796) 
  (gammai 18415) 
  (gammaln 18580) 
  (gcd 8921) 
  (get-char 7318) 
  (get-float 11986) 
  (get-int 817) 
  (get-long 10887) 
  (get-string 11818) 
  (global 44476) 
  (global? 30221) 
  (if 5613) 
  (if-not 45278) 
  (ifft 9198) 
  (inc 5305) 
  (index 3675) 
  (int 7913) 
  (integer? 21338) 
  (intersect 2198) 
  (invert 522) 
  (irr 1980) 
  (join 1411) 
  (lambda? 48649) 
  (last 2378) 
  (last-error 15602) 
  (legal? 4669) 
  (length 1238) 
  (let 5902) 
  (letex 2171) 
  (letn 8631) 
  (list 12063) 
  (list? 25437) 
  (local 10706) 
  (log 13667) 
  (lookup 6739) 
  (lower-case 6438) 
  (macro? 34727) 
  (main-args 2945) 
  (map 3759) 
  (mat 297) 
  (match 1069) 
  (max 17336) 
  (member 1320) 
  (min 17209) 
  (mod 14654) 
  (mul 33368) 
  (multiply 1076) 
  (new 220) 
  (nil? 3058) 
  (normal 907) 
  (not 5432) 
  (now 9624) 
  (nper 21972) 
  (npv 17001) 
  (nth 754) 
  (null? 4327) 
  (number? 13023) 
  (or 10287) 
  (pack 377) 
  (parse 1053) 
  (pmt 20836) 
  (pop 534) 
  (pop-assoc 1699) 
  (pow 19912) 
  (pretty-print 9626) 
  (primitive? 50885) 
  (prob-chi2 17291) 
  (prob-z 24014) 
  (protected? 17923) 
  (push 422) 
  (pv 19713) 
  (quote 36067) 
  (quote? 43134) 
  (rand 104) 
  (random 13774) 
  (randomize 2819) 
  (read-expr 4689) 
  (ref 343) 
  (ref-all 153) 
  (regex 1634) 
  (regex-comp 3744) 
  (replace 140) 
  (rest 1025) 
  (reverse 4936) 
  (rotate 2183) 
  (round 2075) 
  (seed 2682) 
  (select 1737) 
  (sequence 21485) 
  (series 7910) 
  (set 16925) 
  (set-locale 16540) 
  (set-ref 1619) 
  (set-ref-all 2603) 
  (setf 895) 
  (setq 14431) 
  (sgn 16779) 
  (sin 19283) 
  (sinh 15753) 
  (slice 506) 
  (sort 254) 
  (source 636) 
  (sqrt 21767) 
  (starts-with 3969) 
  (string 224) 
  (string? 21999) 
  (sub 23454) 
  (swap 1951) 
  (sym 9170) 
  (symbol? 10098) 
  (symbols 666) 
  (sys-error 29036) 
  (sys-info 15251) 
  (tan 16612) 
  (tanh 14236) 
  (term 17963) 
  (throw 4018) 
  (throw-error 1741) 
  (time 27169) 
  (time-of-day 14815) 
  (title-case 4338) 
  (transpose 1826) 
  (trim 1900) 
  (true? 8315) 
  (unify 297) 
  (unique 6232) 
  (unless 8488) 
  (unpack 6149) 
  (until 6973) 
  (upper-case 6446) 
  (uuid 7491) 
  (when 8297) 
  (while 1061) 
  (write-buffer 2476) 
  (write-line 4520) 
  (xml-parse 3955) 
  (xml-type-tags 11269) 
  (zero? 14075) 
  (| 34705) 
  (~ 2771)))