# 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 
    \A 
    == #(equal?):int 
        : #(append):[int] 
            -1 #(integer):int 
            1 #(integer):int 
        \B 
        . #(map):[int] 
            `= #(chunk by):[[int]] 
                ! #(zip with):[int] 
                    ; #(save):[chr] 
                        `p #(int to str):[chr] 
                            A #(@):int 
                    sets C 
                    \D 
                    >> #(tail):[chr] 
                        C #(@):[chr] 
                    - #(zipop: sub):null 
                \E 
                E #($):int 
            \F 
            / #(foldr1):int 
                #(implicit arg = F):[int] 
                #\H G 
                #(implicit arg = H):int