(define double-reverse-sublist
  (lambda (ls)
    (if (null? ls)
	'()
	((lambda (to-double tail)
	   (cons to-double
		 (cons to-double
		       tail)))
	 (reverse (car ls))
	 (double-reverse-sublist (cdr ls))
	)
    )))