program start;
var
  s:string;
  f:text;
  i,n,t,m,c,abi:integer;
  tx,mx,cx:integer;
  ty,my,cy:integer;
begin
  assign(f,'ajad.txt');
  reset(f);
  i:=0;
  readln(f, s);
  val( copy(s, 1, 2) , t, abi);
  val( copy(s, 4, 2) , m, abi);
  val( copy(s, 7, 2) , c, abi);
  while not eof(f) do
 begin
  i:=i+1;
  readln(f, s);
  val( copy(s, 1, 2) , tx, abi);
  val( copy(s, 4, 2) , mx, abi);
  val( copy(s, 7, 2) , cx, abi);
  ty:=tx-t;
  my:=mx-m;
  cy:=cx-c;
  writeln(i, '. ',ty,' ' ,my,' ',cy);
  end;
   close(f);
   end.