# code: http://golf.shinh.org/reveal.rb?Updown+numbers/darrenks_1645714448&nbb
# target Nibbles version: 0.24
# commenter version: 0.1.2.181

| #(filter):[int] 
    , #(range from 1):[int] 
        * #(multiply):int 
            ;$ #(= sndInt):int 
            $ #(= fstInt):int 
    == #(equal?):int <--arg( A:int ) 
        : #(append):[int] 
            -1 #(integer):int 
            1 #(integer):int 
        . #(map):[int] <--arg( B:[int] ) 
            `= #(chunk by):[[int]] 
                ! #(zip with):[int] 
                    ; #(save):[chr] -->let( C:[chr] ) 
                        `p #(int to str):[chr] 
                            @ #(= A):int 
                    >> #(tail):[chr] <--arg( D:chr ) 
                        @ #(= C):[chr] 
                    - #(zipop: sub):null 
                $ #(= E):int <--arg( E:int ) 
            / #(foldr1):int <--arg( F:[int] ) 
                #(implicit arg = F):[int] 
                #(implicit arg = H):int <--arg( H:int G:int )