this program should be in PROLOG language

Write a recursive predicate sublist/2 that checks if a list S is a sublist of list L, meaning that all elements in S are also in L. Assume for now there are no repeated elements in S or in L. Some test queries: ?- sublist ([9, 2, a], [a, b, c, 2, 3, 9]). true. ?- sublist ([], [1, 2, 3]). true. ?- sublist ([1, 2], [1, 3, 4]). false. Now modify your program so that it works with repeated elements. Consider using the built-in predicate select/3. Some test queries: ?- sublist ([1, 2, 1], [1, 1, 2, 3]). true. ?- sublist ([a, a, c], [a, b, c]). false