<cd> ` echo \'(defun p (str) (format T "~A" str)) (defun pn (str) (format T "~A~%" str))\' > ../etc/clinit.cl

     1

large trout

     2

large salmon

     3

large tuna

     4

large squid

     5

spikey sack of potatos

     6

rotten sack of potatos