A Haskell solution to Josephus' Problem (http://en.wikipedia.org/wiki/Josephus_problem)