(define (fact n)
  (if (< n 2) 1
      (* n (fact (- n 1)))
      )
)

(define (fib n)
  (cond
    ((< n 0) "n pozitif olmali")
    ((= n 0) 0                 )
    ((= n 1) 1                 )
    (else
       (+ (fib (- n 1)) (fib (- n 2)))
    )
  )
)

(define (mymap fn lst)
  (if (null? lst) '()
      (cons (fn (car lst))
            (mymap fn (cdr lst))
       )
  )
)