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