R7RS "life" example