Convert an alist to a list of two-element lists
The call (alist-to-doublets alist) returns the result of replacing
each pair
(implies (and (natp i) (< i (len alist))) (equal (nth i (alist-to-doublets alist)) (let ((pair (nth i alist))) (list (car pair) (cdr pair)))))