LISPでフラクタルのアスキーアート

LISPでフラクタルのアスキーアートを作る、というブログのエントリーがあったんですが、なんという簡潔さ。再帰ではなくforループとかwhileループとかを使っているので、C++/Javaに慣れた人でも読みやすいかも。