var n,i,j,k,x,y,z,s:longint;
    ch:char;
begin
  readln(n);
  for i:=1 to n do begin
    for j:=1 to 4 do begin
      s:=0;k:=128;
      for x:=1 to 8 do begin
        read(ch);s:=s+k*(ord(ch)-48);
        k:=k div 2;
      end;
      write(s);
      if j<>4 then write('.');
    end;
    readln;
    writeln;
  end;
end.