(DEFINE (SOLVE A B C) (SOLVE2 A B C (DISC A B C)(/ 1.0 (* 2.0 A)) ) )

	(DEFINE (DISC A B C) (- (* B B) (* 4.0 A C)))

	(DEFINE (SOLVE2 A B C D DEN)
	  (COND 
	    ( (> D 0) (LIST 
			    (* ( - (- B) (SQRT D)) DEN)
			    (* ( + (- B) (SQRT D)) DEN)
		          );LIST
            ); >
		( (= D 0) (* (- B) DEN)
		); =
		( T         (CONS
				  (* (- B) DEN )
				  (* (SQRT (- D)) DEN )
				);CONS
	    );T
	 );COND
	);DEFINE