RosettaCodeData/Task/Josephus-problem/Forth/josephus-problem.fth

: josephus  0 1 begin dup 41 <= while  swap 3 + over mod swap  1+ repeat drop ;