largestFirst :: (GenHash m, Dom utxo ~ DSL h a, PickFromUtxo utxo)
             => a      -- ^ Change address
             -> Word64 -- ^ Maximum number of inputs
             -> CoinSelPolicy utxo m (DSL.Transaction h a, TxStats, utxo)
largestFirst changeAddr maxInps =
      runCoinSelT changeAddr
    . Generic.largestFirst maxInps
    . NE.toList
largestFirst :: (GenHash m, Dom utxo ~ DSL h a, PickFromUtxo utxo)
             => a      -- ^ Change address
             -> Word64 -- ^ Maximum number of inputs
             -> CoinSelPolicy utxo m (DSL.Transaction h a, TxStats, utxo)
largestFirst changeAddr maxInps =
      runCoinSelT changeAddr
    . Generic.largestFirst maxInps
    . NE.toList
largestFirst changeAddr maxInps =
      runCoinSelT changeAddr
    . Generic.largestFirst maxInps
    . NE.toList