Script for word frequency