(let* ((extract-res-0 (extract-strings program))
(strings (car extract-res-0))
(extract-res-1 (extract-lambdas (cdr extract-res-0)))
(let* ((extract-res-0 (extract-strings program))
(strings (car extract-res-0))
(extract-res-1 (extract-lambdas (cdr extract-res-0)))