         3 >>yield
         f >>plague
         0 >>cost
-    dup births>> >>total-births
+    dup births>> '[ _ + ] change-population
+    dup population>> >>total-births
     dup deaths>> >>total-deaths
-    dup births>> '[ _ + ] change-population
     dup [ harvest>> ] [ yield>> ] bi / >>acres
     dup [ harvest>> ] [ stores>> ] bi - >>eaten ;
 

: leave-fink ( -- )
    "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" print
    "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE" print
    "ALSO BEEN DECLARED 'NATIONAL FINK' !!" print ;

: leave-starved ( game -- game )
    dup deaths>> "YOU STARVED %d PEOPLE IN ONE YEAR!!!\n" printf

    [ harvest>> ] [ eaten>> ] bi - ;

: #percent-died ( game -- n )
    [ total-deaths>> ] [ total-births>> ] bi / 100 * ;

: #births ( game -- n )
    {
