for a Bool-like newtype:

newtype B = B Bool

, is there an easy way to use this newtype B in place of Bool?

e.g.

let b1 = B True

in if b1 then 1 else 0

?