# code: http://golf.shinh.org/reveal.rb?rect/kaki_1734756562&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.6.187

: #(append):[[chr]] 
    : #(append):[[chr]] 
        ;~ #(save fn):[chr] -->let( D:fn([chr]->[chr]) ) 
            ; #(save):[chr] -->let( A:[chr] ) 
                "-+" #(string):[chr] 
            * #(join):[chr] <--arg( B:[chr] ) 
                ^ #(replicate):[chr] 
                    _ #(= fstInt):int 
                    `( #(uncons):chr -->let( C:[chr] ) 
                        $ #(= B):[chr] 
                `: #(list of 2 lists):[[chr]] 
                    $ #(= C):[chr] 
                    $ #(= C):[chr] 
        . #(map):[[chr]] 
            , #(range from 1):[int] 
                ;_ #(= sndInt):int 
            @ #(= D):[chr] <--arg( E:int ) 
                " |" #(string):[chr] 
    $ #(= D):[chr] 
        #(implicit arg = A):[chr]