# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1319121352 25200
# Node ID 44f31e2126fae69d3692cc2d18dd43db63318c0d
# Parent  c29b950c87298d1346777b6930d9e2ceaef0f133
cleanup

diff -r c29b950c8729 -r 44f31e2126fa org/man-years.org
--- a/org/man-years.org	Thu Oct 20 07:22:13 2011 -0700
+++ b/org/man-years.org	Thu Oct 20 07:35:52 2011 -0700
@@ -7,7 +7,7 @@
 #+include: ../../aurellem/org/level-0.org
 #+babel: :results output :exports both
 
-* What is a Man-Hour
+* What is a Man-Hour?
 
 A [[http://en.wikipedia.org/wiki/Man-hour][/Man-Hour/]] is a term from the field of Management.  It is one hour
 of work by one person for a certain task. 
@@ -132,20 +132,23 @@
 
 
 
-;; multiply each time-period's total number of people
-;; by those people's average lifespan in years to get
-;; the total number of man-years experienced during
-;; that period, then add them together.
 
+
+;; This section is just here to make the result look pretty.
 (dorun
  (map println
       (clojure.contrib.string/split
        #"," 
-       (cl-format nil "years of human experience: \n ~R years"
-                  (reduce + 
-                          (map *
-                               (map births time-periods)
-                               (map lifespans time-periods)))))))
+       (cl-format 
+        nil "years of human experience: \n ~R years"
+;; Multiply each time-period's total number of people
+;; by those people's average lifespan in years to get
+;; the total number of man-years experienced during
+;; that period, then add them together.
+        (reduce + 
+                (map *
+                     (map births time-periods)
+                     (map lifespans time-periods)))))))
 
 #+end_src