plot (ABS[sqrt[x+1] -x ], sqrt[ABS[x]+1] - ABS[x]) from -5 to 5