var a,b,c,d:longint;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
if a+b+c+d=10 then writeln(a*1000+b*100+c*10+d);
end.
/**************************************************************
	Problem: 1863
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/