evalpoly = do putStr "What is the degree of polynomial: "

degree <- getLine

coeffs <- (funcOfCoeff ((read degree::Int)+1) [] )

putStr "What value do you want to evaluate at: "

value <- getLine

putStr "the value of "

putStr (printChar coeffs)

putStr (" evaluated at "++ value ++" is ")

putStrLn (show (getResult (coeffs) (read value :: Float) ))

printChar coeffs =parser([x | x <-reverse (zip coeffs (iterate (+1) 0)), fst x /= 0])

parser []=""

parser (a:as)=show(fst a) ++ "x^" ++show(snd a) ++ " " ++(parser as)    —PROBLEM IS HERE!!!

---function loop to get coefficient--

funcOfCoeff 0 coeffs = do --to check the degree of 0

return coeffs --return list of coefficient

funcOfCoeff degree coeffs = do

putStr ("What is the x^" ++ show(degree-1))

putStr " coefficient: "

coeff <- getLine

loop <- funcOfCoeff (degree-1) ((read coeff :: Float) : coeffs)

return loop

getResult (coeffs) x = sum(map(\(a,b) -> a*x^b).zip coeffs.iterate (+1)$0) --evaluate polynomial with value