Implemented up to find-empty-point.