: life
  center 0= if
    8sum { 0 0 0 1 0 0 0 0 0 }
  else
    8sum { 0 0 1 1 0 0 0 0 0 } then
  >pln0
;

: rule life ;