10
thousand
range1
2
step
{
    0
    left-cons
    dup2
    counter
    inc
    get
    step
    diff #(list-list)
}
256
times #(eval)
unwords