1. Write a function that counts the number of items of a given key on a list.
2. Write a procedure with the heading: procedure Reverse (var ll:listptr; 12 :listptr ) which sets ll to point to a list whose elements are those of
/2 but in reverse order.