j2_29

//--- Coded_By_NoCtrlZ ---//
var f1,f2:text; s,pass:ansistring; i:integer;
so:set of byte;
thuong:set of byte;
hoa:set of byte;
begin
so:=[48..57];
thuong:=[97..122];
hoa:=[65..90];
assign(f1,'j2_29.txt');
reset(f1);
assign(f2,'pass_29.txt');
rewrite(f2);
readln(f1,s);
for i:=1 to length(s) do
        if not (ord(s[i]) in so) then
                begin
                if ord(s[i]) in thuong then
                s[i]:=upcase(s[i])
                else
                if ord(s[i]) in hoa then
                s[i]:=chr(ord(s[i])+32);
                )and(s[i-1]='_') then pass:=pass+s[i];
                end
                else pass:=pass+s[i];


write(f2,pass);
close(f2);
close(f1);
end.