var
  a,b,c,d:byte;
begin
  for a:=1 to 4 do
   for b:=1 to 4 do if b<>a then
   for c:=1 to 4 do if (c<>a) and (c<>b) then begin
    d:=10-a-b-c;
    if (odd(a)=(b=1)) and (odd(b)=(d=2)) and
       (odd(c)=(a=2)) and (odd(d)=(c<>3)) then
         writeln(a,' ',b,' ',c,' ',d);
  end;
  writeln;
end.