;Reading at top level in Editor Typeout Window 1.
;Reading in base 10 in package USER with standard Zetalisp readtable.

(josephus 9 13)
Remove every 13th element from (A B C D E F G H I)

1) #<Node: name=NIL count=9>
2) #<Node: name=NIL count=5>
3) #<Node: name=NIL count=4>
4) #<Node: name=NIL count=3>
5) #<Node: name=NIL count=2>
6) #<Node: name=NIL count=2>
7) #<Node: name=NIL count=2>
8) #<Node: name=NIL count=2>
9) #<Node: name=C count=1>
10) #<Node: name=D count=1>
11) #<Node: name=E count=1>
12) #<Node: name=F count=1>
13) #<Node: name=G count=1>
14) #<Node: name=H count=1>
15) #<Node: name=I count=1>
16) #<Node: name=A count=1>
17) #<Node: name=B count=1>
Eliminated D.
Eliminated I.
Eliminated G.
Eliminated H.
Eliminated C.
Eliminated E.
Eliminated F.
Eliminated A.

Only B remains.

B
(circle-demo 9 13)
Remove every 13th element from (A B C D E F G H I)

Remove #4 from (A B C D E F G H I)

Remove #5 from (E F G H I A B C)

Remove #6 from (A B C E F G H)

Remove #1 from (H A B C E F)

Remove #3 from (A B C E F)

Remove #1 from (E F A B)

Remove #1 from (F A B)

Remove #1 from (A B)


Only B remains.

B
(dribble)