Blob


1 (define (double procedure)
2 (lambda (x)
3 (procedure (procedure (x)))))