nick
Taking one for the team
Scene: Nick’s intermediate league baseball game.
Bottom of the last inning. Other team at bat. 2 outs. 2 on base. Winning hitter at bat. Fly to right field. Nick makes a beautiful diving catch and comes up with the ball, ending the game for his team to win…
…then runs off the field holding his arm.
One rushed trip to the office for x-rays later, and it’s confirmed: he broke the same wrist that he broke last year when he fell off his skateboard.
I’ll hand it to the kid: he plays hard. If you’re going to get hurt, you may as well do it heroically.
baby.lisp
In our household, a baby just ain’t a baby without an appropriately geeky birth announcement. And since Nick is mostly functional — I mean, he can’t exactly type yet — this one is in Lisp. Share and enjoy!
; This program forks(). That should be plenty for a few years' entertainment
; Copyright (C) 2007 Kirk & Jennifer Strauser
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
; However, the output of this particular instance shall remain
; exclusively licensed to the authors for a period of up to eighteen
; years.
; $Id: baby.lisp 4 2007-09-05 23:18:12Z kirk $
(require :sb-posix)
(defvar *birthtime* (encode-universal-time 0 20 1 1 9 2007))
(defvar *age* (- (get-universal-time) *birthtime*))
(defun hello ()
(format t "Hello, world! My name is Nicholas Arthur Strauser and this is ~
my ~:r day!~%" (ceiling (/ *age* 86400))))
(defun labor ()
(cond
((zerop (sb-posix:fork)) (format t "Ouch!~%"))
(t (hello))))
(defun wait ()
(cond
((< *age* 0)
(sleep (- *age*))
(setf *age* 0)
(labor))
(t (hello))))
(wait)