CLIPS

It seems I'm one of the first people to write a quine in CLIPS, considering the lack of mentions of it on any of the other quine sites.  Here goes:

(defrule q =>(bind ?s"(defrule q =>(bind ?s%s%s%s)(bind ?q%s%s%s%s)(bind
?b%s%s%s%s)(format t ?s ?q ?s ?q ?q ?b ?q ?q ?q ?b ?b ?q))")(bind ?q"\"")
(bind ?b"\\")(format t ?s ?q ?s ?q ?q ?b ?q ?q ?q ?b ?b ?q))

Remove the interior line breaks, replacing the first with a space.