Compiler 2012

int main(string[] args) {
  int a, b, c, d, e;
  int[] f;
  int g;
 
  a = 10000;
  b = 0;
  c = 2800;
  d = 0;
  e = 0;
  f = new int[2801];
  g = 0;
 
  for (;b-c;) f[b] = a/5, b=b+1;
  for (;d=0,g=c*2; c=c-14,put4(e+d/a),e=d%a)
    for (b=c; d=d+f[b]*a, f[b]=d%(g=g-1), d=d/g, g=g-1, b=b-1; d=d*b){}
}
 
int put4(int i) {
  if (i < 10) printString("000" + i);
  else if (i < 100) printString("00" + i);
  else if (i < 1000) printString("0" + i);
  else printInt(i);
  return i;
}