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