collection-insert-left

(define (insert-left f x u)

           (if (null? x) 
             u (f (car x) 
               (insert-left f (cdr x) u)) ) )