read-nums
extract-array
{
    swap
    dup
    23
    shift-left
    ^
    64
    power-of-2
    %
    2dup
    17
    shift-right
    over
    26
    shift-right
    ^
    ^
    ^
    2dup
    +
    @13
    %
    show-line
    rrot
}
100
times #(eval)
pop2