var
a:ansistring;
b:array[1..100000]of longint;
i,n,j,k,num1,num2,x,t:longint;
function pd(n:longint):boolean;
begin
if n in [48..57] then pd:=false else pd:=true;
end;
begin
while not eof do begin
readln(a);
n:=length(a);
if pd(ord(a[1])) then begin
i:=2;x:=0;j:=1;num1:=1;
while i<n do begin repeat x:=x*10+(ord(a[i])-ord('0')); inc(i); until (pd(ord(a[i]))) or (i>n);
inc(i);
b[j]:=x;
x:=0;
inc(j);
end;
dec(j);
if j=1 then writeln(b[1]) else begin
num2:=b[j];
for k:=j downto 1 do
begin
num1:=b[k-1]num2+num1;
t:=num1; num1:=num2; num2:=t;
end;
writeln(num1,'/',num2);
end;
end else begin
i:=1;x:=0;j:=0;num1:=0;num2:=0;
while i<=n do
begin
repeat
x:=x10+(ord(a[i])-ord('0'));
inc(i);
until (pd(ord(a[i]))) or (i>n);
inc(i);
if j=0 then begin num1:=num1+x; inc(j); x:=0;
end else num2:=num2+x;
end;
if num2=0 then writeln('[',num1,']')else
if num1 mod num2=0 then writeln('[',num1 div num2,']')
else begin
write('[');
for k:=1 to 1000 do begin
b[k]:=num1 div num2;
num1:=num1 mod num2;
t:=num1; num1:=num2; num2:=t;
if k=1 then write(b[k],';')
else if num2<1 then begin writeln(b[k],']');break;end else write(b[k],',');
end;
end;
end;
end;
end.

program lx;
var str:string;
flag,s:longint;
a:array [1..1000] of longint;
procedure init;
var sum,i,weight:longint;
ok:boolean;
begin
readln(str);
if str[length(str)]=']' then flag:=0 else flag:=1;
weight:=1;
s:=0;
i:=length(str);
while i>0 do
begin
sum:=0;
ok:=false;
weight:=1;
while str[i] in ['1'..'9'] do
begin
ok:=true;
sum:=sum+(ord(str[i])-ord('0'))*weight;
weight:=weight*10;
dec(i);
end;
if ok then
begin
inc(s);
a:=sum;
end;
dec(i);
end;
if flag=0 then
if str[2]='-' then a:=a*(-1);
if flag=1 then
if str[1]='-' then a:=a*(-1);
end;

function gcd(a,b:longint):longint;
begin
if b=0 then gcd:=a
else gcd:=gcd(b,a mod b);
end;


procedure work0;
var fm,fz,i,temp:longint;
begin
fm:=a[1];
fz:=1;
for i:=2 to s do
begin
fz:=fz+a[i]*fm;
temp:=fz;
fz:=fm;
fm:=temp;
end;
if fz div gcd(fz,fm)=1 then writeln(fm div gcd(fz,fm))
else if fz div gcd(fz,fm)<0 then
writeln((fm div gcd(fz,fm))*(-1),'/',(fz div gcd(fz,fm))*(-1))
else writeln(fm div gcd(fz,fm),'/',fz div gcd(fz,fm));
end;


procedure work1;
var fz,fm,k,temp,h:longint;
ok:boolean;
begin
write('[');
fz:=a[2];
fm:=a[1];
if fz>=0 then
begin
k:=gcd(fz,fm);
fz:=fz div k;
fm:=fm div k;
write(fz div fm,';');
end
else
begin
h:=0;
while fz<0 do begin inc(fz,fm);dec(h);end;
write(h,';');
end;
fz:=fz mod fm;
ok:=false;
while fz<>1 do
begin
temp:=fz;
fz:=fm;
fm:=temp;
if not ok then begin write(fz div fm);ok:=true;end
else write(',',fz div fm);
fz:=fz mod fm;
end;
writeln(',',fm,']');
end;



begin
while not eof do
begin
init;
if flag=0 then work0 else work1;
fillchar(a,sizeof(a),0);
str:='';
end;
end.

uses math;
function gcd(a,b:longint):longint;
begin
  if b=0 then gcd:=a
  else gcd:=gcd(b,a mod b);
end;



//繁分数->分数
procedure transto(var s:string);
var 
  i,b,x,n,d,code:longint;temp:string;
  a:array[0..200] of longint;
  len:longint;
begin
  len:=0;
  n:=0;d:=0;
  for i:=length(s)-1 downto 1 do begin
    if (s[i]=',') or (s[i]=';') or (s[i]='[') then begin
      val(copy(s,i+1,len),x,code);
      if d=0 then begin n:=1;d:=x
      end else begin
        n:=x*d+n;
        code:=n;n:=d;d:=code;
      end;
      len:=0
    end else inc(len);
  end;
  code:=n;n:=d;d:=code;
  code:=gcd(n,d);n:=n div code;d:=d div code;
  if d=1 then str(n,s)
  else begin
    str(n,s);
    str(d,temp);
    s:=s+'/'+temp;
  end;
end;

//分数->繁分数
procedure transfrom(var s:string);
var n,i,d,code,g:longint;res,temp:string;
begin
  i:=-1;
  for i:=1 to length(s) do
    if s[i]='/' then begin
      val(copy(s,1,i-1),n,code);
      val(copy(s,i+1,length(s)-2),d,code);
    end;
  if i=-1 then begin write(s);exit end;
  g:=gcd(n,d);n:=n div g;d:=d div g;
  
  if n mod d=0 then begin write(n div d);exit end;
  
  str(n div d,temp);
  res:='['+temp+';';
  code:=d;d:=n mod d;n:=code;
  while d<>1 do begin
    str(n div d,temp);
    res:=res+temp+',';
    code:=d;d:=n mod d;n:=code;
    if d=0 then begin write(n div d);break end;
    end;
  if n<>1 then begin
    str(n,temp);
    res:=res+temp+',';
  end;
  res[length(res)]:=']';
  s:=res;
end;

var s:string;
  a:array[0..100] of string;
  i,count:longint;
begin //main
  while not eof do begin
    readln(s);
    if s[1]='[' then transto(s) else transfrom(s);
    inc(count);
    a[count]:=s;
  end;
  for i:=1 to count do writeln(a[i]);
end.