WRITE A SWISH PROGRAM !!

Example 1: A. Write a prolog program to print a list of Strings, and test your program with the list (apple,banana,kiwi,orange] Given the list below: [(apple,5.2),(orange,3.25),(banana,5.50),(kiwi, 7.75), (apple,7.95)] B. Use length_of_list(L,R) program to find length of the list C. Use member(x,L) rule to write queries that will find the answer to the following statements: First query is given as an example, 1. List the available prices for apple Member((apple,x),((apple, 5.2), (orange, 3.25),(banana,5.50), (kiwi,7.75),(apple7.95)]) X-5.2 X= 7.95 false 2. List all available fruits 3. Show how much kiwi cost 4. List fruits that cost more than 4.00