USING: kernel math prettyprint sequences ;

[let
    { 1 2 2 3 4 4 5 } -1 :> ( s prev! )
    s length <iota> [| i |
        i s nth :> curr
        i 0 > curr prev = and
        [ i . ] when
        curr prev!
    ] each
]