16384
{
    dup2
    256
    base #(num to list)
    sum
    odd
    15
    shift-left
    +
    half
    new-line
    swap
}
100
times #(eval)