runCombo :: ComboState -> Combo m a  -> m a
runCombo cs f = runReaderT (unCombo f) cs
runCombo :: ComboState -> Combo m a  -> m a
runCombo cs f = runReaderT (unCombo f) cs
runCombo cs f = runReaderT (unCombo f) cs