Write a tail-recursive Prolog procedure product (Lst,Result) that calculates the prod- uct of all the elements in a list, called List, of integers and returns the product in Result