Cut at zero

cutat0(x, n, mid = 0)