Module Reconcile

type hint =
  1. | Missing of Ledger.txn list
  2. | Extra of Ledger.txn
  3. | Wrong_sign of Ledger.txn
  4. | Transposed of Ledger.txn * Money.cents
  5. | Nine
val opening : Ledger.txn list -> Money.cents
val cleared : Ledger.txn list -> Money.cents
val difference : statement:Money.cents -> Ledger.txn list -> Money.cents
val hints : statement:Money.cents -> Ledger.txn list -> hint list
val finish : Ledger.txn list -> Ledger.txn list