これでグラフ全体を印刷する準備がほぼ整いました。
適切なラベルを付けてグラフを描画する関数は、先に作成した概要（軸にラベルを付けたグラフを参照）に従いつつ、いくつかの追加要素が盛り込まれています。
以下が概要です：
(defun print-graph (numbers-list)
"documentation..."
(let ((height ...
...))
(print-Y-axis height ... )
(graph-body-print numbers-list)
(print-X-axis ... )))