old calc-eval usage example

gistfile1.el

;; 1) te bajas una lista de 15 primos impares de aca
;;  http://www.research.att.com/~njas/sequences/table?a=65091&fmt=4


;; 2) abris el emacs, (que de todas maneras deberias tenerlo abierto) y pones
(setq list-of-odd-primes '( 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277))

(setq numerito
      (let ((first-fifteen (subseq (coerce list-of-odd-primes 'vector) 0 15)))
        (reduce 'math-mul first-fifteen)))

(calc-eval "$" 'nil numerito)
;; que es: "16294579238595022365"

;; 3) luego haces
;;     dig any 16294579238595022365.com
;; ANSWER SECTION:
;;    16294579238595022365.com. 85814	IN	MX	20 mail.16294579238595022365.com.
;;    16294579238595022365.com. 85814	IN	MX	10 mail2.16294579238595022365.com.
;;    16294579238595022365.com. 85783	IN	A	207.44.172.44
;;    16294579238595022365.com. 85783	IN	NS	ns1.globant.com.
;;    16294579238595022365.com. 85783	IN	NS	ns2.globant.com.

;; 4) ?????????

;; 5) PROFIT!