User Portlet User Portlet

Discussions
use f[x_]:=Evaluate[y[x] /. s[[1]]] instead