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