[ [] swap
    behead swap
    witheach
      [ tuck max
        rot swap join
        swap ]
    drop ]                   is pairwise-max ( [ --> [ )

  [ [] unrot
    witheach
      [ dip behead +
        rot swap join
        swap ]
    drop ]                   is add-items    ( [ --> [ )

  [ behead dip
      [ reverse
        behead
        pairwise-max
        swap witheach
          [ add-items
            pairwise-max ] ]
        add-items
        0 peek ]             is mtps         ( [ --> n )

' [ [ 55 ]
    [ 94 48 ]
    [ 95 30 96 ]
    [ 77 71 26 67 ]
    [ 97 13 76 38 45 ]
    [ 07 36 79 16 37 68 ]
    [ 48 07 09 18 70 26 06 ]
    [ 18 72 79 46 59 79 29 90 ]
    [ 20 76 87 11 32 07 07 49 18 ]
    [ 27 83 58 35 71 11 25 57 29 85 ]
    [ 14 64 36 96 27 11 58 56 92 18 55 ]
    [ 02 90 03 60 48 49 41 46 33 36 47 23 ]
    [ 92 50 48 02 36 59 42 79 72 20 82 77 42 ]
    [ 56 78 38 80 39 75 02 71 66 66 01 03 55 72 ]
    [ 44 25 67 84 71 67 11 61 40 57 58 89 40 56 36 ]
    [ 85 32 25 85 57 48 84 35 47 62 17 01 01 99 89 52 ]
    [ 06 71 28 75 94 48 37 10 23 51 06 48 53 18 74 98 15 ]
    [ 27 02 92 23 08 71 76 84 15 52 92 63 81 10 44 10 69 93 ] ]
mtps echo