stp.Bit

stp.Bit(a, i)

(= ((_ extract i i) a) #b1)