(labels((s(n j)(if j(setf n(concatenate 'string n" shark")))(dotimes(k 3)(format t "~A,~{~A~}~%"n(make-list 6 :initial-element" doo")))(format t "~A!~%" n)))(s"Baby"t)(s"Mommy"t)(s"Daddy"t)(s"Grandma"t)(s"Grandpa"t)(s"Let's go hunt"nil)(s"Run away"nil)(s"Safe at last"nil)(s"It's the end"nil))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).