A short program to demonstrate the non-random nature of Natural Selection