Fold

http://www.haskell.org/haskellwiki/Fold
Haskell has map in terms of 'foldr ((:) . f) []'

How would you implementd foldr, and then map with foldr in scheme/lisp?

>>8
> ((compose sqr sub1) 5)    
24

(define (compose . l)
  (lambda (x)
    (foldr (lambda (f x) (f x)) x l)))

((compose sqr sub1) 5)
16