program dzfb1;

{$APPTYPE CONSOLE}

uses SysUtils;
var
Num:set of char=['0'..'9','-','+'];
s:string;
j,i,nn,t,start,k:integer;
going,minus:boolean;
x:real;
N:array[1..10] of integer;
str:array[1..250] of char;
begin
i:=1;
for i:=1 to 250 do begin
read(str[i]);
if str[i]=#10 then break;
end;
dec(i,2);
j:=i;

minus:=false;
going:=false;

for i:=1 to j do begin
if str[i] in num then begin
if not going then begin
start:=i;going:=true;
continue;
end;
end else begin
if going and (ansilowercase(str[i])='e') then begin continue; end;
if going and (str[i]='.') then begin continue; end;
if going then begin
going:=false;
s:=copy(str,start,i-start);
write(s,'  :  ');
val(s,x,k);
writeln(x:7:4);
end;
end;
end;

if going then begin
s:=copy(str,start,i-start);
write(s,'  :  ');
val(s,x,k);
writeln(x:7:4);
end;

readln;
end.