Changed the contents of coolprog.R