FindRoot[Sec[x] == x, {x, -2}, WorkingPrecision -> 15]