let
extract_bit n ith = n
land
(1
lsl
ith) <> 0