ignorePrefixBits f (b:bs) = 
    if b
    then f bs
    else ignorePrefixBits f bs
ignorePrefixBits f (b:bs) = 
    if b
    then f bs
    else ignorePrefixBits f bs
ignorePrefixBits f (b:bs) = 
    if b
    then f bs
    else ignorePrefixBits f bs