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