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