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