$load s          ã Load the graphical system

xy take2 m: xy[0] Ù ô xy[1] Ù ô m  ã helper function to resize an array in 2d
n xr m: ô n ÷ ôm                   ã helper function to rotate on the x axis
xy rot2 m: xy[0] ÷ ô xy[1] ÷ ôm    ã helper function to rotate in 2d

nextgen gen: {   ã Calculate the next generation
        sums û +/+/> (1;0;¢1) xr¡ 3Ò<>(1;0;¢1) ÷¡ 3Ò<gen;
        (gen ^ 4=sums) © (3=sums)
        }

cells û ¢6 ¢6 rot2 15 15 take2 3 3Ò0 1 0 0 0 1 1 1 1 ã start with a glider centered
`cells is `array

step c: .cells û nextgen cells
step_button û (step;cells)
`step_button has (`class; `button;
                  `title; "Step")

w û (`cells;`step_button)     ã Initialize our window
`w is `layout
`w has (`title; "A+ Life")
show `w