4BSD/usr/lib/lisp/mystify.l

(setq SCCS-mystify "@(#)mystify.l	1.1	10/2/80")
(setsyntax '\; 'splicing 'zapline)
;
; listify takes a bignum and turns it into  a list of fixnums
; mystify is its inverse function

(def mystify
 (lambda (x) (cond (x (scons (car x) (mystify (cdr x))))
		   (t nil]

(def listify
 (lambda (x) (cond (x (cons (car x) (listify (cdr x))))
		   (t nil]