∇ GOL ;m;M
⍝ Cheap Game of Life simulation, inspired by youtube.com/watch?v=a9xAKttWgP4
⍝ Before running this tradfn, fix GOL, type )ed uivar and then run this tradfn.
m ← (4 4⍴⍳16)∊?16⍴16
M ← 13 23↑¯8 ¯13↑m
Life ← {(3∘=∨⍵∧4∘=) ({1⊥∊⍵}⌺3 3)⍵}
{} {uivar ∘← '∘⌹'[⍵] ⋄ _←⎕dl ÷8 ⋄ Life ⍵}⍣≡ M
∇