A program for calculating an actor Bacon number