read-nums
extract-array
pop2
{
    @3
    dup2
    9
    shift-right
    @4
    dup
    23
    shift-left
    64
    sub-power-of-2
    &
    ^
    ^
    17
    shift-right
    @3
    ^
    ^
    +
    @13
    &
    new-line
}
100
times #(eval)