A fast algorithm for calculating s-invariants - Dirk Schuetz (2018)