RosettaCodeData/Task/Josephus-problem/Icon/josephus-problem-1.icon

procedure main(A)
   m := integer(A[1]) | 41
   c := integer(A[2]) | 3
   write("With ",m," men, counting to ",c," last position is: ", j(m,c))
end

procedure j(m,c)
   return if m==1 then 0 else (j(m-1,c)+c)%m
end