Write a program in Common Lisp consisting of two functions to solve a specific problem related to quadratic equations. $(1)$The first function, named quadratic, should compute the value of a quadratic equation given its coefficients and a value for x$.$ It takes four parameters: $($the coefficients of the equation ax$^2+$bx$+$c$)$ and x $($the value at which to evaluate the equation$).$ This function should return the result of ax$^2+$bx$+$c$.(2)$ The second function, named greaterRoot, should determine the greater of the two roots of a quadratic equation given its coefficients. It accepts three parameter: a$,$b$,$c$.$ The function should first check if the discriminant $($b$^2-4$ac$)$ is non$-$negative, which indicates the roots are real. If so$,$ it calculates both roots and returns the greater one. If the discriminant is negative, indicating that the roots are complex, the function should print a message stating that the equation has no real roots. $(3)$ After defining these functions, use them to find and print the greater root of the quadratic equation with coefficients a$=1,$ b$=5,$ and c$=6$ ensuring your output matches the format "Greater root for a$=1,$ b$=-5,$ c$=6$: $[$root$]".$ Then, evaluate the quadratic equation at this root using the quadratic function and print the result in the format $"$f$($root$)=[$value$]".$ Ensure your program correctly handles the calculation and formatting of the output.