-- | Helper function to increment a base value depending on the passed
-- boolean argument.
incIf :: (Num a) => Bool -> a -> a -> a
incIf True  base delta = base + delta
incIf :: (Num a) => Bool -> a -> a -> a
incIf True  base delta = base + delta
incIf True  base delta = base + delta