1
{
    show-line
    dup
    read-nums
        +
    b1
    scan
    right-uncons
    counter
    copies
    @2
    reverse
    catenate #(list+list)
    catenate #(list+list)
    unwords
}
9
times #(eval)