OCaml Code: Attached are the instructions. Make sure to read the instructions carefully and write your own test cases to make sure the code works. Make sure to include a screenshot of the correct code with the test cases that is used along with the output of the code being passed. list followed by a string. The string is the name of the output file that you will write the listto. This function should leverage printGenList and provide an anonymous function (the fun ...-... construct) that will do the appropriate pretty printing to the output file. This anonymousfunction should print the element of the list and then a space character. printList should have thefollowing type signature:val printList: int list - string - unitCreate a function called printPairList that will pretty print a list consisting of integer pairs.The function will take an (int *int) list followed by a string. The string is the name of theoutput file that you will write the list to. printPairList should leverage print GenList andprovide an anonymous function (the fun -... construct) that will do the appropriatepretty printing. This anonymous function should print an open parenthesis, the first element ofthe pair, a comma, a space, the second element of the pair, and then a close parenthesis followedby a space. printPairList should have the following type signature:val printPairList : (int int) list - string - unit 4Generalized PrintingYou are tasked with creating generalized list printing functions. Write a function called printGenListwhich takes a list and a printing function f and applies the function to each element of the listrecursively. The function should have the following type signature:val print GenList : 'a list - ('a - unit) - unitCreate a function called printList that will pretty print an integer list. You will find the stringconcatenation operator (^) and the string_of_int function useful. printList will take an integer3list followed by a string. The string is the name of the output file that you will write the listto. This function should leverage printGenList and provide an anonymous function (the fun ...-... construct) that will do the appropriate pretty printing to the output file. This anonymousfunction should print the element of the list and then a space character. printList should have thefollowing type signature:val printList int list - string - unitCreate a function called printPairList that will pretty print a list consisting of integer pairs.The function will take an (int * int) list followed by a string. The string is the name of theoutput file that you will write the list to. printPairList should leverage printGenList andprovide an anonymous function (the fun ... -... construct) that will do the appropriatepretty printing. This anonymous function should print an open parenthesis, the first element ofthe pair, a comma, a space, the second element of the pair, and then a close parenthesis followedby a space. printPairList should have the following type signature:val printPairList : (int int) list - string - unit

Question

OCaml Code: Attached are the instructions. Make sure to read the instructions carefully and write your own test cases to make sure the code works. Make sure to include a screenshot of the correct code with the test cases that is used along with the output of the code being passed. list followed by a string. The string is the name of the output file that you will write the listto. This function should leverage printGenList and provide an anonymous function (the fun ...->... construct) that will do the appropriate pretty printing to the output file. This anonymousfunction should print the element of the list and then a space character. printList should have thefollowing type signature:val printList: int list -> string -> unitCreate a function called printPairList that will pretty print a list consisting of integer pairs.The function will take an (int *int) list followed by a string. The string is the name of theoutput file that you will write the list to. printPairList should leverage print GenList andprovide an anonymous function (the fun ->... construct) that will do the appropriatepretty printing. This anonymous function should print an open parenthesis, the first element ofthe pair, a comma, a space, the second element of the pair, and then a close parenthesis followedby a space. printPairList should have the following type signature:val printPairList : (int int) list -> string -> unit 4Generalized PrintingYou are tasked with creating generalized list printing functions. Write a function called printGenListwhich takes a list and a printing function f and applies the function to each element of the listrecursively. The function should have the following type signature:val print GenList : 'a list -> ('a -> unit) -> unitCreate a function called printList that will pretty print an integer list. You will find the stringconcatenation operator (^) and the string_of_int function useful. printList will take an integer3list followed by a string. The string is the name of the output file that you will write the listto. This function should leverage printGenList and provide an anonymous function (the fun ...->... construct) that will do the appropriate pretty printing to the output file. This anonymousfunction should print the element of the list and then a space character. printList should have thefollowing type signature:val printList int list -> string -> unitCreate a function called printPairList that will pretty print a list consisting of integer pairs.The function will take an (int * int) list followed by a string. The string is the name of theoutput file that you will write the list to. printPairList should leverage printGenList andprovide an anonymous function (the fun ... ->... construct) that will do the appropriatepretty printing. This anonymous function should print an open parenthesis, the first element ofthe pair, a comma, a space, the second element of the pair, and then a close parenthesis followedby a space. printPairList should have the following type signature:val printPairList : (int int) list -> string -> unit

Accepted Answer

Algorithm:﻿Define the printGenList function that takes a list lst and a printing function f as…