line-mode
read-nums
extract-array
pop-c
pop-d
1
0
push-d
push-c
{
    divmod
    pop
    *
    -
    @2
    swap
    @7
    @5
    dup
        push-a
        eval
    f2
}
save-a
eval
pop2
pop2
over
-
@2
*
push-c
%
@8
/
push-d
*
+
@8
@5
divides
dec
|