var x:array[-111..50100000] of longint;
    r:array[0..50000000] of longint;
    n,m,i,j,rest,c,p:longint;
    t:text;
begin
assign(t,'impartire.in'); reset(t);
readln(t,n,m);
close(t);
assign(t,'impartire.out'); rewrite(t);
rest:=n mod m;
for i:=0 to 100000 do r[i]:=-1;
for i:=0 to 1000000 do
  begin
    rest:=rest*10;
    x[i]:=rest div m;
    rest:=rest mod m;
    if r[rest]<>-1 then begin c:=i; p:=r[rest]; break; end
      else r[rest]:=i;
    if rest=0 then begin p:=i+1; break; end;
  end;
write(t,n div m,'.');
for i:=0 to p-1 do write(t,x[i]); if (c<>0) then write(t,'(');
for i:=p to c-1 do write(t,x[i]); if (c<>0) then write(t,')');
close(t);

end.