# 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] -->let( D:[int] ) 
                            . #(map):[int] 
                                ; #(save):[int] -->let( A:[int] ) 
                                    << #(init):[int] 
                                        >> #(tail):[int] 
                                            , #(range from 1):[int] 
                                                $ #(= fstInt):int 
                                ? #(index):int <--arg( B:int ) 
                                    @ #(= A):[int] 
                                    ~ #(by):null 
                                    ~ #(not):null 
                                    % #(modulus):int <--arg( C:int ) 
                                        @ #(= B):int 
                                        $ #(= C):int 
                @ #(= D):[int] <--arg( E:int ) 
                ? #(zipop: index):null