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