     [ harvest>> ] [ eaten>> ] bi - ;
 
 : #percent-died ( game -- n )
-    [ total-deaths>> 100 * ] [ total-births>> ] [ year>> ] tri / / ;
+    [ total-deaths>> ] [ total-births>> ] bi / 100 * ;
 
 : #births ( game -- n )
     {

: 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

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

