<se:buffer scope="page" name="initialworld" trim="both">
........
O.O.....
.OO.....
.O......
........
........
........
........
</se:buffer>
<form method="post">
    <!--// get world from form post -->
    {buffer.set(worldData, string.isempty(request.form.list(world), buffer.get(initialworld, page)))}
    {buffer.set(generation, convert.toint(string.isempty(request.form.list(generation), 0)) + 1)}
    {buffer.set(world, string.split($worldData, char.crlf()))}
    <se:text whitespace="remove">
        {buffer.set(newWorld, string.split(buffer.get(initialworld, Page), char.crlf()))}
        <!--// suppress output -->
        <se:text resulttype="none">
            <!--// remove rem and empty lines from world -->
            {datatable.delete($world, "col1 = '' or col1 like '!*'")}
            <!--// empty new world -->
            {datatable.delete($newWorld, "")}
        </se:text>
        
        <!--// calculate next generation -->
        <se:for from="1" to="{datatable.getrowcount($world)}" resulttype="none">
            {buffer.set(line, datatable.getvalue($world, this.index(), 1))}
            {buffer.set(newLine, "")}
            <se:for from="1" to="{string.length($line)}">
                <!--// calculate new value for each cell -->
                {buffer.set(x, this.index()-1)}
                {buffer.set(y, this.parent.index())}
        
                {buffer.set(populated, string.substring($line, $x, 1) == "O")}
                {buffer.set(neighbors, 0)}
                <se:if expression="$populated">
                    <!--// exclude myself from neighbors -->
                    {buffer.set(neighbors, -1)}
                </se:if>
                
                <!--// find neighbors-->
                <se:for from="{math.max($y-1, 1)}" to="{math.min($y+1, datatable.getrowcount($world))}">
                    {buffer.set(currentLine, datatable.getvalue($world, this.index(), 1))}
                    
                    <se:for from="{math.max($x-1, 0)}" to="{math.min($x+1, string.length($currentLine) - 1)}">
                        <se:if expression="string.substring($currentLine, this.parent.index(), 1) == 'O'">
                            {buffer.set(neighbors, $neighbors+1)}
                        </se:if>
                    </se:for>
                </se:for>
        
                <!--// rules Game Of Life -->
                {buffer.set(newCell, ".")}
                <se:if expression="$populated AND $neighbors == 2 || $neighbors == 3">
                    {buffer.set(newCell, "O")}    
                </se:if>
                {buffer.set(newLine, string.concat($newLine, $newCell))}
            </se:for>
    
            {datatable.add($newWorld, $newLine)}
        </se:for>
        <!--// replace world -->
        {buffer.set(world, $newWorld)}
    </se:text>

    {buffer.set(newWorldData, "")}
    
    <!--// render generation -->
    <b>Generation {buffer.get(generation)}</b>
    <se:text whitespace="remove">
        <pre style="font-size:7">
            <se:format inputdata="world">
                <se:rowformat>
                    {this.field(1)}<br />
                
                    <!--// serialize world -->
                    {buffer.set(newWorldData, string.concat($newWorldData, this.field(1), char.crlf()))}
                </se:rowformat>
            </se:format>
        </pre>
    </se:text>

    <input type="hidden" name="world" value="{buffer.get(newWorldData)}" />
    <input type="hidden" name="generation" value="{buffer.get(generation)}" />
    <input type="submit" value="Next Generation" />
</form>

<se:hidden rem="generate a datatable with random values">
    {math.setrandomseed(1, rem="set seed to ensure data is identical for each rendering")}
    {buffer.set(dt, datatable.createempty(Row,Number,Date,Text))}
    {buffer.set(wordcnt, 20, rem="max word count for random text")}
    <se:for from="1" to="100" rem="to-parameter is the rowcount for the output datatable">
        {buffer.set(rnd, math.random($wordcnt))}
        <se:lorem save="lorem" rem="calculate random text"
            unitcount="{buffer.get(wordcnt)}" unittype="word"
            skiprows="{buffer.get(rnd)}" maxrows="{math.random($wordcnt-$rnd)}" rowformat="{this.field(1)}" rowdelimiter=" "
        />
        {datatable.rows.add($dt
        ,this.index()
        , math.random(1000)
        , datetime.addseconds( datetime.addhours(convert.todate('2010-01-01T00:00:00'), math.random(100000)-50000),math.random(10000)-5000)
        , $lorem
        )}
    </se:for>
</se:hidden>

<se:format inputdata="dt" rem="render datatable as a html table">
    <se:rowformat>
        <se:colformat><td>{this.field()}</td></se:colformat>
        <se:rowresult>{char.tab()}<tr>{this.rowresult()}</tr>{char.crlf()}</se:rowresult>
    </se:rowformat>

    <se:captionformat match="first">
        <se:colformat><th>{this.colname()}</th></se:colformat>
        <se:rowresult>{char.tab()}<tr>{this.rowresult()}</tr>{char.crlf()}</se:rowresult>
    </se:captionformat>

    <se:resultformat><table>{char.crlf()}{this.result()}</table></se:resultformat>
</se:format>