1
save-c
22
save-a
+
{
    dup
    power-of-2
    push-c
    ^
    save-c
    @0
    &
    not
    22
    over
        negate
        inc
    f2
    push-a
    tuck
    *
    save-a
    +
    rot
    +
    463
    %
}
1000
times #(eval)
pop