title: inserting element into list of ascending order [ocaml]
body: <p>the following code inserts an element into a list sorted in ascending order.</p>
  
  <pre><code>let rec insert x l =
    match l with
      | [] -&gt; [x]
      | y::ys -&gt; if x &lt; y then x::y::ys else y::insert x ys
  </code></pre>
  
  <p>However, how do I implement the above function just using List.fold_right, and no recursion?</p>