char l['RP']="GIKGOPAMU@",*I,*O,_;main(){for(I=O=99+l;_
=l[_/2&30|*(*I++=_%2|48,puts(O),I-=_&2)&1];I<O&&--O);}
Selitys
int a[3302],b=
3301,* c=a,d
,e,f; main(){
for(e= b;--e;*
c++=1); *c=2;for
(d=2001;d--;printf("%05d",
f))for(
c=a,e=
b;e;f /=e--)
{f+=*c *10000
;*c++=f%e;}}
Game of life, simppeli versio.