This code takes a list and a integer and duplicates every element in the list the specified number of times.
(define (super-duper source count)
(define (next-super source left)
(if (zero? left)
(super-duper (cdr source) count)
(cons (super-duper (car source) count) (next-super source (- left 1)))))
(if (pair? source)
(cons (super-duper (car source) count) (next-super source (- count 1)))
source))
(display(super-duper '((x y) t) 3))