;; page 26

divide[x; y] = cons[ quotient[x; y]; cons[ remainder[x; y]; NIL]]