file → CounterState → String → Maybe CalcResult
testACounter c opts profile state input = runMaybeT (unCounter c opts profile input) `evalState` state


testACounterWEmpty ∷ Counter → String → Maybe CalcR
testACounter ∷ Counter → MainOptions → Profile → CounterState → String → Maybe CalcResult
testACounter c opts profile state input = runMaybeT (unCounter c opts profile input) `evalState` state
testACounter c opts profile state input = runMaybeT (unCounter c opts profile input) `evalState` state