sub Determinant { return ($_[0]*$_[3] - $_[2]*$_[1]); }