# code: http://golf.shinh.org/reveal.rb?Letter+Primes/tails_1705892071&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

: #(append):[[chr]] 
    1 #(integer):int 
    `' #(transpose):[[chr]] 
        + #(add):[chr] 
            '@' #(char):chr 
            ! #(zip with):[int] 
                `< #(sort):[int] 
                    `$ #(uniq):[int] 
                        ; #(save):[int] 
                            . #(map):[int] 
                                ; #(save):[int] 
                                    << #(init):[int] 
                                        >> #(tail):[int] 
                                            , #(range from 1):[int] 
                                                fstInt #($):int 
                                sets A 
                                \B 
                                ? #(index):int 
                                    A #(@):[int] 
                                    ~ #(by):null 
                                    ~ #(not):null 
                                    \C 
                                    % #(modulus):int 
                                        B #(@):int 
                                        C #($):int 
                        sets D 
                \E 
                D #(@):[int] 
                ? #(zipop: index):null