diff --git a/examples/game-of-life/life.scm b/examples/game-of-life/life.scm
index f30d54f9..8f8e324b 100644
--- a/examples/game-of-life/life.scm
+++ b/examples/game-of-life/life.scm
@@ -11,25 +11,15 @@
 ;;;  > huski life.scm
 ;;;
 (import (scheme base)
-;        (example life)
-;        (example grid)
-;; TODO:
         (only (example life) life)
         (rename (prefix (example grid) grid-)
-                (grid-make make-grid))
-)
+                (grid-make make-grid)))
 ;; Initialize a grid with a glider.
-;(define grid (make-grid 24 24))
-;(grid-put! grid 1 1 #t)
-;(grid-put! grid 2 2 #t)
-;(grid-put! grid 3 0 #t)
-;(grid-put! grid 3 1 #t)
-;(grid-put! grid 3 2 #t)
-(define grid (make 24 24))
-(put! grid 1 1 #t)
-(put! grid 2 2 #t)
-(put! grid 3 0 #t)
-(put! grid 3 1 #t)
-(put! grid 3 2 #t)
+(define grid (make-grid 24 24))
+(grid-put! grid 1 1 #t)
+(grid-put! grid 2 2 #t)
+(grid-put! grid 3 0 #t)
+(grid-put! grid 3 1 #t)
+(grid-put! grid 3 2 #t)
 ;; Run for x iterations.
 (life grid 80)