uses crt;
var f:text; n:longint; a:array[1..100]of array[1..1000]  of char;
procedure doc;
var i,pt:longint; c:char;
        begin
         assign(f,'KIEUMOI.INP');
         reset(f);
         readln(f,n);
         for i:=1 to n do
                begin
                 pt:=0;
                 while not(eoln(f))do
                        begin
                         inc(pt);
                         read(f,c);
                         a[i][pt]:=c;
                        end;
                 readln(f);
                end;
         close(f);
        end;
procedure ghi;
var i,j:longint;
        begin
         assign(f,'KIEUMOI.OUT');
         rewrite(f);
         for i:=1 to n do
                begin
                 for j:=2 to length(a[i])do
                        begin
                         if(j=2)then
                          if(a[i][1] in ['A'..'Z'])then write(f,chr(ord(a[i][1])+32)) else if(a[i][1]<>' ')then write(f,a[i][1]);
                         if(a[i][j]in ['A'..'Z'])then begin  write(f,'_',chr(ord(a[i][j])+32)) end else write(f,a[i][j]);
                        end;
                 writeln(f);
                end;
        end;
begin
 clrscr;
  doc;
  ghi;
 readln;
end.

uses crt;
var i, n, h, x, j : integer;
    S : ansistring;
    f1, f2 : text;

procedure GX (x : integer);
begin
    for j := x to length(S) do
        begin
            if S[j] in ['a' .. 'z'] then write(f2, lowercase(S[j]))
            else break;
            if S[j + 1] in ['A' .. 'Z']  then write(f2, '_');
        end;
end;

begin
clrscr;
assign(f1, 'KIEUMOI.INP'); reset(f1);
assign(f2, 'KIEUMOI.OUT'); rewrite(f2);
readln(f1, n);
for i := 1 to n do
    begin
        readln(f1, S);
        S[1] := upcase(S[1]);
        for h := 1 to length(S) do
            if S[h] in ['A' .. 'Z'] then
                begin
                    S[h] := lowercase(S[h]);
                    GX(h);
                end;
        writeln(f2, '');
    end;
close(f1);
close(f2);
end.