TEST:
  ## simplified test equation
  my $test = $a*$d - $b*$c;
  ## introduced switching around of input pairs
  if ($test < 0 && $ts){
    ($a, $b, $c, $d, ) = ($b, $a, $d, $c,);
    goto TEST;
  }