((lambda ((:k1 (+ 1 2 3)))
   (assert (= k1 6))))

((lambda ((:k1 ()))
   (when k1
     (assert ()))
   (assert (= k1 ()))))

(define (test)
  ((lambda ()
     (define (a)
       :ok)
     (define (b (:k (begin (show-environment) (a))))
       k)
     (b))))