var

 n :string;

 j,k:integer;

procedure strkeint(str:string; var x,y:integer);

var

 Arr: array of char;

 i: Integer;

 Len: Integer;

begin

 Len := Length(Str);

 SetLength(arr, Len);



 for i := 1 to Len do

 Arr[i - 1] := Str[i];

 x:=(ord(Arr[0])-48);

 y:=(ord(Arr[2])-48);

end;



function fpb(a,b:integer):integer;

var

 c,d,r : integer;

begin

 if a > b then begin

 c := a;

 d := b;

 end else begin

 c := b;

 d := a;

 end;

repeat

 r := c mod d;

 if r = 0 then

 fpb := d

 else

 c := d;

 d := r;

until r = 0;

end;



procedure sederhanakanlah(var o,p:integer);

begin

 o := o div fpb(o,p);

 p := p div fpb(o,p);

end;



begin

 readln(n);

 strkeint(n, j, k);

 sederhanakanlah(j,k);

 writeln(j,'/',k);

 readln();

end.