genericEncodeBool :: Num a => Bool -> a
genericEncodeBool x = if x then 1 else 0
genericEncodeBool :: Num a => Bool -> a
genericEncodeBool x = if x then 1 else 0
genericEncodeBool x = if x then 1 else 0