pdl> p $v = pdl split '', '30373'
[3 0 3 7 3]

##</code><code>##

pdl> p cumusumover $v
[3 3 6 13 16]

##</code><code>##

pdl> ?? cumulative

##</code><code>##

pdl> p $SLTM

[
 [0 0 0 0 0]
 [1 0 0 0 0]
 [1 1 0 0 0]
 [1 1 1 0 0]
 [1 1 1 1 0]
]

##</code><code>##

pdl> p $SLTM * $v

[
 [0 0 0 0 0]
 [3 0 0 0 0]
 [3 0 0 0 0]
 [3 0 3 0 0]
 [3 0 3 7 0]
]

##</code><code>##

pdl> p maxover $SLTM * $v
[0 3 3 3 7]

##</code><code>##

pdl> p $v > maxover $SLTM * $v
[1 0 0 1 0]