(defun f (a b c)
    (let ((t (sqrt (- (* b b) (* 4 a c))))
      (values (/ (+ (- b) t)) (* 2 a)))
              (/ (- (- b) t)  (* 2 a))))

##</code><code>##

sub f { 
    my( $a, $b, $c ) = @_; 
    my $t = sqrt( $b**2 - 4*$a*$c ); 
    return( 
        ( -$b - $t ) / 2*$a, 
        ( -$b + $t ) / 2*$a 
    );
}