library(rSymPy)
x <- Var("x")
sympy("solve(3+3*x-x*x, x)")