ContourPlot[x^2+y^2==1+Abs[x]y]