Help for this page
f'(x) = x * y g'(x) = x + y;
sub dydt { my ($t, $x, $y) = @_; return ($x * $y, $x + $y); }