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