while(<>){chomp;@_=split/\//;$a=2;while($a<$_[1]){if(!($_[0]%$a)&& !($_[1]%$a)){for$i(0,1){$_[$i]=$_[$i]/$a};redo}$a++}print"$_[0]/$_[1]\n"}