\START92\
\COMMENT=Zeros the pth bit in i (1-based)
\NAME=zerobit
\FILE=day4.zerobit.92f
(i,p)
Func
i-2^(p-1)*mod(floor(i/2^(p-1)),2)
EndFunc

\STOP92\