דוגמא חביבה
מתוך "The Perl Review 2":
#include <stdio.h> #include <stdlib.h> #define strtol(a,b) strtol(a,0,b) #define $ /* use POSIX;$argv[1]=pop;"*/ main(int argc,char *argv[]) //"; { printf("%ld\n",strtol($ argv[1],36)); }
התוכנית ממירה מבסיס 36 לבסיס 10, ועובדת ב-C, ב-++C וב-PERL...
