(define suffixes
  (lambda (l)
    (cond
      ((null? l) '(()))
      (else (cons l (suffixes(cdr l))))
      )
    )
  )