cloudRoutine

{
//  Custom symbols
//  Use it for your symbols, for example:
//  {
//      "mysymbol": "\u0021",
//      "myothersymbol": "\u2080"
//  }

//  If symbols aren't displaying properly consider using a different font
//  "DejaVu Sans Mono" has encodings for all glyphs in this file

cloudRoutine

let english_integer ( i : bigint ) : string  =
 
    let ZERO_TO_19 =
        [   "zero"     ;    "one"      ;    "two"      ; "three"   ;  "four"    ;  "five"       ;
            "six"      ;    "seven"    ;    "eight"    ; "nine"    ;  "ten"     ;  "eleven"     ;
            "twelve"   ;    "thirteen" ;    "fourteen" ; "fifteen" ;  "sixteen" ;  "seventeen"  ;    
            "eighteen" ;    "nineteen"                                                          ]
   
    let HYPHEN_ONES =
        [   ""     ; "-one"   ; "-two"    ; "-three" ; "-four" ; "-five"     ;

cloudRoutine

(*
           Example Tree Print
           ------------------

                  ______________[64]______________      
                 /                                \      
         ____[73]_____                        _____[88]  
        /             \                      /         \
     [0]               [13]              [32]            
    /   \             /    \            /    \          

cloudRoutine

(*
        Example Tree Print
        ------------------

[Grandfather] [Grandmother] [Grandpa] [Grandma]          
     |______________|          |__________|              
             |                       |                  
           [Dad]                   [Mom]                
             |_______________________|                  
                           |                            

cloudRoutine

(*
           Prints Trees Like
           -----------------
           
[Node]
|
|_(1)_[Leaf]
|
|_(1)_[Node]
      |

cloudRoutine

/// Xaml Reference

module MainApp =

//  Imports 

    open System
    open System.Diagnostics
    open System.Windows
    open System.Windows.Controls

cloudRoutine

namespace Scratch

open System
open System.Windows
open FsXaml


module ScratchModel =
    
    type CustomQueryView = XAML<"CustomQuery.xaml">

cloudRoutine

<Window
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:local="clr-namespace:Scratch;assembly=App"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
        x:Name="WindowRoot" mc:Ignorable="d"
        Title="Tagger" Height="518.283" Width="320.582" AllowsTransparency="True" WindowStyle="None" MinWidth="100" MinHeight="100" BorderBrush="#FF6C6C6C" Background="{x:Null}" UseLayoutRounding="True" ResizeMode="CanResizeWithGrip" IsTabStop="False" IsManipulationEnabled="True">
    <Window.Resources>
        <Color x:Key="ScrollBar">#FF404040</Color>

cloudRoutine

<UserControl
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:local="clr-namespace:Scratch;assembly=App"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
        xmlns:System="clr-namespace:System;assembly=mscorlib" 
        x:Name="ControlRoot" 
        
        mc:Ignorable="d" d:DesignWidth="238" d:DesignHeight="414"  IsManipulationEnabled="True">

cloudRoutine

define(function(require, exports, module) {
"use strict";

var oop = require("../lib/oop");
var DocCommentHighlightRules = require("./doc_comment_highlight_rules").DocCommentHighlightRules;
var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;
var Tokenizer = require("ace/tokenizer").Tokenizer;

var FSharpHighlightRules = function ()
    {