TinyLisp: A Language and Parser to See LINQ Expressions in Action

<Window x:Class="TinyLisp.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="TinyLisp" Height="400" Width="600"
        xmlns:tl="clr-namespace:TinyLisp"
        >
    <Window.Resources>
        <!-- Expand all treenodes -->
        <Style TargetType="TreeViewItem">
            <Setter Property="IsExpanded" Value="True" />
        </Style>
    </Window.Resources>
    
    <Grid>
        
        <Grid.ColumnDefinitions>
            <ColumnDefinition />
            <ColumnDefinition />
        </Grid.ColumnDefinitions>
        <Grid.RowDefinitions>
            <RowDefinition Height="46" />
            <RowDefinition Height="18" />
            <RowDefinition Height="432*" />
        </Grid.RowDefinitions>
            
        <!--First row has input, button and output-->
        <TextBox Grid.Row="0" Grid.Column="0" Name="Input" TextAlignment="Center" VerticalContentAlignment="Center" FontSize="16">(+(/(*3(*2 3 4)) 2) 1 2 3)</TextBox>        
        <Button Content="Evaluate" Grid.Column="1" Click="Button_Click" />
         
        <!--First colums has the AST-->
        <TextBlock Grid.Column="0" Grid.Row="1" TextAlignment="Center" HorizontalAlignment="Center">Abstract syntax tree</TextBlock>
        <TreeView Name="tvAst" Grid.Row="2" ItemsSource="{Binding}" >
            <TreeView.ItemTemplate>
                <HierarchicalDataTemplate ItemsSource="{Binding Operands}" >
                    <TextBlock Text="{Binding Text}"/>
                </HierarchicalDataTemplate>
            </TreeView.ItemTemplate>
        </TreeView>

        <!-- Second column has the Linq Expression-->
        <TextBlock Grid.Column="1" Grid.Row="1" HorizontalAlignment="Center">Linq Expression</TextBlock>
        <TreeView Name="tvExpr" Grid.Column="1" Grid.Row="2" ItemsSource="{Binding}" >
            <TreeView.ItemTemplate>
                <HierarchicalDataTemplate DataType="x:Type local:ExprWrapper" ItemsSource="{Binding Children}">
                    <TextBlock Text="{Binding Text}" />
                </HierarchicalDataTemplate>
            </TreeView.ItemTemplate>
        </TreeView>
        
    </Grid>
</Window>