anchor.diff: -﻿namespace DmitriyVlasov.Experimental
  -
  -[<Experimental("Эксперементальные функции обработки текста")>]
  -module Text = 
  +﻿namespace DmitriyVlasov.Experimental.Text
  +
  +module Common = 
     open System
     open System.Text
     open DmitriyVlasov
  
positive.code:       | _ -> string c
      String.collect clear str
  
    // Транслитерация
    // ========================================================================
    type private RuLetter = string
    type private EnLetter = {
      Normal  : string
      First   : string option
  
negative.code:   /// Транслитерация текста с русского в английский.
    /// </summary>
    /// <param name="text"></param>
    let run (text:string) =
      let dic:Map<string,EnLetter> = 
        Map.ofArray [|
          // строчные
          "а", { Normal="a";   First=None;      Initial=None     }
  