StackOverflowException F# snippet (#7852)

Author: albert-du

snippets/fsharp/System/StackOverflowException/Overview/example1a.fs

@@ -0,0 +1,40 @@
+// <Snippet1>
+let MAX_RECURSIVE_CALLS = 1000
+let mutable ctr = 0
+   
+let rec execute () =
+    ctr <- ctr + 1
+    if ctr % 50 = 0 then
+        printfn $"Call number {ctr} to the Execute method"
+        
+    if ctr <= MAX_RECURSIVE_CALLS then
+        execute ()
+        
+    ctr <- ctr - 1
+    
+execute ()
+printfn $"\nThe call counter: {ctr}"
+// The example displays the following output:
+//       Call number 50 to the Execute method
+//       Call number 100 to the Execute method
+//       Call number 150 to the Execute method
+//       Call number 200 to the Execute method
+//       Call number 250 to the Execute method
+//       Call number 300 to the Execute method
+//       Call number 350 to the Execute method
+//       Call number 400 to the Execute method
+//       Call number 450 to the Execute method
+//       Call number 500 to the Execute method
+//       Call number 550 to the Execute method
+//       Call number 600 to the Execute method
+//       Call number 650 to the Execute method
+//       Call number 700 to the Execute method
+//       Call number 750 to the Execute method
+//       Call number 800 to the Execute method
+//       Call number 850 to the Execute method
+//       Call number 900 to the Execute method
+//       Call number 950 to the Execute method
+//       Call number 1000 to the Execute method
+//
+//       The call counter: 0
+// </Snippet1>

snippets/fsharp/System/StackOverflowException/Overview/fs.fsproj

@@ -0,0 +1,10 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="example1a.fs" />
+  </ItemGroup>
+</Project>

xml/System/StackOverflowException.xml

@@ -69,6 +69,7 @@ See the [Examples](#examples) section for an illustration of this technique.
  The following example uses a counter to ensure that the number of recursive calls to the `Execute` method do not exceed a maximum defined by the MAX_RECURSIVE_CALLS constant.
  
  :::code language="csharp" source="~/snippets/csharp/System/StackOverflowException/Overview/example1a.cs" interactive="try-dotnet" id="Snippet1":::
+ :::code language="fsharp" source="~/snippets/fsharp/System/StackOverflowException/Overview/example1a.fs" id="Snippet1":::
  :::code language="vb" source="~/snippets/visualbasic/VS_Snippets_CLR_System/system.stackoverflowexception.class/vb/example1a.vb" id="Snippet1":::
 
  ]]></format>