Please code in OCaml and NOT using list library methods. Please code this using only standard library methods.

flatten lst - Type: 'a list list ' ' list - Description: Returns a combined list of all of the lists in lst. Make sure the original ordering of the lists in lst is preserved. - Examples: flatten [[1;2;3;4];[5;6]]=[1;2;3;4;5;6] flatten [[6];[5];[4];[3];[2];[1]]=[6;5;4;3;2;1] flatten [[1;2];[3;4];[]]=[1;2;3;4] flatten [[1];[2];[3]=[1;2;3]