Install["FLink"];

FInit["ferl","x,y"];

FEval["(x+y)^2"]

    y^2+(2*x)*y+x^2

FClose[];