16384
save-a
{
    new-line
    over
    half
    @0
    16448
    *
    push-a
    &
    +
}
100
times #(eval)