hlBoolToBit :: ShowS -> ShowS
    hlBoolToBit cond = hlIf cond (shows (1::Int)) (shows (0::Int))
hlBoolToBit :: ShowS -> ShowS
hlBoolToBit cond = hlIf cond (shows (1::Int)) (shows (0::Int))
hlBoolToBit cond = hlIf cond (shows (1::Int)) (shows (0::Int))