added: RepeatedSquaring.R