#lang racket
(define genliste ( lambda (d f p)
                    (letrec ((f(lambda (li d)
                                (if (< f (+ d p) )
                               ( f (append li (+ d p)) (+ d p))
                               li)
                                )))
                      (f '() d)
                      )
                    ))
(define somme (lambda (x y z) (+ x y z)))