# code: http://golf.shinh.org/reveal.rb?VIDE+DICEQVE/tails_1645065284&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

< #(take):[[chr]] 
    20 #(integer):int 
    `. #(iterate while uniq):[[chr]] 
        "I" #(string):[chr] 
        + #(concat):[chr] <--arg( A:[chr] ) 
            . #(map):[[chr]] 
                `= #(chunk by):[[chr]] 
                    $ #(= A):[chr] 
                    $ #(= B):chr <--arg( B:chr ) 
                : #(append):[chr] <--arg( C:[chr] ) 
                    = #(subscript (wrapped)):[chr] 
                        , #(length):int 
                            $ #(= C):[chr] 
                        % #(split (remove empties)):[[chr]] 
                            ! #(zip with):[chr] 
                                "IV " #(string):[chr] 
                                `D #(to base from data):[int] <--arg( D:chr ) 
                                    3 #(to base from data arg):null 
                                = #(zipop: subscript):null 
                            ~ #(auto = words):auto 
                    / #(foldr1):chr 
                        $ #(= C):[chr] 
                        $ #(= F):chr <--arg( F:chr E:chr ) 
#(postdata (hex): to base from data)
95c03