(define (a proc)
  (proc 5))

(letrec 
  ((res '()))
  (a 
   (lambda (arg) 
     (if (< arg 0) 
         (set! res (- arg))
         (set! res arg)))))