# define o(o) printf(o) /* sub o {print(reverse((split (//,shift))[0..6]) . "\n")} o `cc -oo $0>&-&&./o;rm o`; o <<'main()'; tenuces */ main() { o("tenuces"); } This program is bilingual: It can be run with Perl and then prints "secunet" three times. It is also valid C code and hence can be compiled with cc. The produced binary will print "tenuces".
Download the source.
For a better understanding you can |