Program 1 working -