life <- function( luck=10 , … ) {
if ( runif(1) > 1/(luck+1.001) ) {
cat( “push stone uphill… ” )
} else {
cat( “\nstone rolls to bottom\n” )
}
life( luck , … )
}
Or maybe you prefer a life with less hard labor, and with more philosophy:
life …