isNatural, isSharpened, isFlattened :: Accidental -> Bool

-- | Returns whether this is a natural accidental.
isNatural   = (== 0)
isNatural, isSharpened, isFlattened :: Accidental -> Bool
isNatural   = (== 0)
isNatural   = (== 0)