script for proc calc from Lab4