#define F(x)for x:=0to 9do var a:array[0..12345]of word;var b,c,d,e:word;begin F(b)F(c)F(d)F(e)a[1001*b+101*c+11*d+2*e]:=1;for b:=1to 3000do if a[b]=0then writeln(b)end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).