Generating universes within universes with a single seed

See how one call to set.seed() in R creates an entire predetermined universe of pseudorandom numbers