var a,b,c,d,e:word;begin
repeat
read(a,b,c,d);repeat
writeln(a,^`,b,^`,c,^`,d);e:=a;a:=abs(a-b);b:=abs(b-c);c:=abs(c-d);d:=abs(d-e)until-d=e;writeln;until 1=0end.