read-nums
m:
    pop-a
    ( "!\x0e<\x17e\x83\x0e\x0e" )
    2
    chunks
    m:
        right-uncons
        tuck-a
        rjust
        m:
            3
            base #(num to list)
            1
            push-a
            pair
            3
            times #(list)
            compress
            ( "_ |" )
            select
            show-line