-- -- The previous version: simply the length of the orth of a token.
-- recalcIxsLen :: DAG (Token t) -> DAG (Token t)
-- recalcIxsLen = recalcIxs $ T.length . orth


recalcIxs1 :: DAG (Token t) -> DAG (Token t)
recalcIxs1 = recalcIxs $ const 1
recalcIxs1 :: DAG (Token t) -> DAG (Token t)
recalcIxs1 = recalcIxs $ const 1
recalcIxs1 = recalcIxs $ const 1