Johannes Stephanus Simeon Ballot