Welcome to the CHICKEN Scheme pasting service
list-with-insertion (better version!) added by sdegutis on Tue Oct 25 17:14:43 2011
(define (list-with-insertion lst idx val)
(cond
[(zero? idx) (cons val lst)]
[(null? lst) lst]
[else
(cons
(car lst)
(list-with-insertion (cdr lst) (- idx 1) val))]))