// life in XY ; pad 2 [0 [,.] each\ 0 [,] each\ +:] do ; ; l 1 !. ; ; r -1 !. ; ; adj [[[r] map r] [[r] map l] [[l] map r] [[l] map l] [[l] map ] [[r] map ] [ r ] [ l ]] [i] each/ ; ; next adj uncons ,: [+] over dup 3 = [2 = &] dip | ; ; life [.i "" ~] [next dup " *" @. .o] while ; ; rpent0 [[1 0 0][1 1 1][0 1 0]] ; rpent0 5 [pad] do life