;;;
;;; Copyright (c) 2026 BEL ESPRIT D ACCORD TRUST HOLDINGS INC
;;; All rights reserved.

;;; run.lisp - Entry point for Marlborg-WORM agent
;;; Usage: sbcl --load run.lisp

(require :asdf)
(push (truename ".") asdf:*central-registry*)
(asdf:load-system "marlborg-worm")

(in-package :marlborg.worm.primitives)

(format t "~%========================================~%")
(format t "  MARLBORG-WORM Self-Modifying Agent~%")
(format t "  Pure Lisp Crypto + WORM Chain~%")
(format t "  Fixed-Point Convergence Guaranteed~%")
(format t "========================================~%~%")

(initialize-agent)