sub g{
$a=shift;
$b=shift;
while ($a!=0){
$c = $a; $a = $b%$a;  $b = $c;}
return $b;
}
while(<STDIN>){
@a=split(/\//);
$c=g($a[0],$a[1]);
print $a[0]/$c."/".$a[1]/$c."\n";
}