Baby Shark Song by ar44denchi

(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).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)


return to the top page