#define F(x)div x)*10+i mod x var i:word;begin for i:=0to 1000do writeln(((((((i F(720)F(120)F(24)F(6)F(2))*10)end.