#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *, char *);
int main() {
  printf("%s",
         "(funcall (lambda (self)   (format t \"#include <stdio.h>~%int main "
         "()~%{~%~%printf(\\\"%s\\\",~(~s~)~a\"           (remove #\\newline "
         "(prin1-to-string self)) \");}\")) (funcall  (lambda (bt-des)    (let "
         "((a ``,',bt-des))      `(funcall        ,'(lambda (self)            "
         "(format t                    \"#include <stdio.h>~%int main "
         "()~%{~%~%printf(\\\"%s\\\",~(~s~)~a\"                    (remove "
         "#\\newline (prin1-to-string self)) \");}\"))        (funcall ,bt-des "
         ",a))))  `,'(lambda (bt-des)       (let ((a ``,',bt-des))         "
         "`(funcall           ,'(lambda (self)               (format t         "
         "              \"#include <stdio.h>~%int main "
         "()~%{~%~%printf(\\\"%s\\\",~(~s~)~a\"                       (remove "
         "#\\newline (prin1-to-string self)) \");}\"))           (funcall "
         ",bt-des ,a))))))");
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
lea    0xee5(%rip),%rdi
lea    0xee1(%rip),%rsi
call   1030 <printf@plt>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rax
lea    0xee8(%rip),%rdi
lea    0xee4(%rip),%rsi
call   1030 <printf@plt>
xor    %eax,%eax
pop    %rcx
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%s\00"
@.str.1 = [766 x i8] c"(funcall (lambda (self) (format t \22#include <stdio.h>~%int main ()~%{~%~%printf(\\\22%s\\\22,~(~s~)~a\22 (remove #\\newline (prin1-to-string self)) \22);}\22)) (funcall (lambda (bt-des) (let ((a ``,',bt-des)) `(funcall ,'(lambda (self) (format t \22#include <stdio.h>~%int main ()~%{~%~%printf(\\\22%s\\\22,~(~s~)~a\22 (remove #\\newline (prin1-to-string self)) \22);}\22)) (funcall ,bt-des ,a)))) `,'(lambda (bt-des) (let ((a ``,',bt-des)) `(funcall ,'(lambda (self) (format t \22#include <stdio.h>~%int main ()~%{~%~%printf(\\\22%s\\\22,~(~s~)~a\22 (remove #\\newline (prin1-to-string self)) \22);}\22)) (funcall ,bt-des ,a))))))\00"
define i32 @main() {
%1 = call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([766 x i8], [766 x i8]* @.str.1, i64 0, i64 0))
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%s\00"
@.str.1 = [766 x i8] c"(funcall (lambda (self) (format t \22#include <stdio.h>~%int main ()~%{~%~%printf(\\\22%s\\\22,~(~s~)~a\22 (remove #\\newline (prin1-to-string self)) \22);}\22)) (funcall (lambda (bt-des) (let ((a ``,',bt-des)) `(funcall ,'(lambda (self) (format t \22#include <stdio.h>~%int main ()~%{~%~%printf(\\\22%s\\\22,~(~s~)~a\22 (remove #\\newline (prin1-to-string self)) \22);}\22)) (funcall ,bt-des ,a)))) `,'(lambda (bt-des) (let ((a ``,',bt-des)) `(funcall ,'(lambda (self) (format t \22#include <stdio.h>~%int main ()~%{~%~%printf(\\\22%s\\\22,~(~s~)~a\22 (remove #\\newline (prin1-to-string self)) \22);}\22)) (funcall ,bt-des ,a))))))\00"
define i32 @main() {
%1 = tail call i32 @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([766 x i8], [766 x i8]* @.str.1, i64 0, i64 0))
ret i32 0
}