use strict;
use bigrat;
my ($x, $y);
 
$x = 5/3 + 7/13;
print $x,"\n";
$y = 5/2 - 3/7;
print $y,"\n";
print $x/$y,"\n";

##</code><code>##

86/39
29/14
1204/1131