(module
  (func $allocate (param $size i32) (result i32)
    ;; Simple bump allocator, not garbage collected
    (local $ptr i32)
    (local.set $ptr (global.get $heap_top))
    (global.set $heap_top 
      (i32.add (local.get $ptr) (local.get $size)))
    (local.get $ptr)
  )
  (global $heap_top (mut i32) (i32.const 0))
)

import FRP.Yampa

-- Periodic task: blink an LED every second
blink :: SF () Bool
blink = proc _ -> do
  time <- localTime -< ()
  returnA -< (floor time `mod` 2 == 0)

-- Aperiodic task: respond to a button press
buttonResponse :: SF Bool String
buttonResponse = arr (\pressed -> if pressed then "Pressed!" else "")

-- Combine tasks
main = reactimate (return ())
                  (\_ -> getButtonState)
                  (\_ (led, msg) -> updateOutput led msg)
                  (blink &&& buttonResponse)

import numpy as np

def cell_pond_step(grid):
    rows, cols = grid.shape
    new_grid = np.zeros((rows, cols))
    
    for i in range(rows):
        for j in range(cols):
            neighbors = np.sum(grid[max(0,i-1):min(i+2,rows), max(0,j-1):min(j+2,cols)]) - grid[i,j]
            if grid[i,j] == 1:
                new_grid[i,j] = 1 if 2 <= neighbors <= 3 else 0
            else:
                new_grid[i,j] = 1 if neighbors == 3 else 0
    
    return new_grid

# Initialize grid
grid = np.random.choice([0, 1], size=(10, 10))

# Run simulation
for _ in range(10):
    grid = cell_pond_step(grid)
    print(grid)