Reduce[Abs[1-l]<1,l,Reals]