alef: cap cwnd
^- pump-metrics
::
=. num-live (add num-live num-sent)
- ?> (lte num-live cwnd)
metrics
:: +on-ack: adjust metrics based on a packet getting acknowledged
::
:: if below congestion threshold, add 1; else, add avg. 1 / cwnd
::
=. cwnd
+ %+ min 200
?: in-slow-start
+(cwnd)
(add cwnd !=(0 (mod (mug now) cwnd)))
