recursion using y-comb

#lang racket


#;((define loop-maker
  (λ (loop-maker)
   (λ (n)
     (if (< n 17)
         ((loop-maker loop-maker) (+ n 1))
         n))))

((loop-maker loop-maker) 0))


((λ (lm)
   ((lm lm) 0))
 (λ (loop-maker)
   (λ (n)
     (if (< n 17)
         ((loop-maker loop-maker) (+ n 1))
         n))))


((λ (fm)
   ((fm fm) 7000))
 (λ (fib-maker)
   (λ (n)
     (if (= n 0)
         1
         (if (= n 1)
             1
             (+ 33
                ((fib-maker fib-maker) (- n 2))))))))



((λ (f) (f 3 4 5))
 (λ (x y z) (+ x y z)))