read-nums
right-uncons
times #(list)
    swap
    pow
b2
fold
show-line