f'(x) = x * y
g'(x) = x + y;

##</code><code>##

sub dydt {
   my ($t, $x, $y) = @_;
   return ($x * $y, $x + $y);
}