line-mode
read-nums
0
1
rot
extract-array
save-a
swap
{
    divmod
    pop-c
    *
    -
    @2
    swap
    @7
    push-c
    dup
    push-b
    when
}
save-b
eval
pop2
pop
push-a
%