anchor.diff:        (pushnew (ip client) (know-ips account))
         (account-menu client))))
   
  -(defun prompt-username (client)
  +(defun/cc prompt-username (client)
     "Prompts a client for a username, returns a valid account."
     (let* ((account-name (prompt-client client "~%Username: "))
   	 (account (get-account-by-name account-name)))
  
positive.code: ;;; Account Creation
  ;;;
  
  (defun setup-account (client)
    "Sets up user account."
    (write-to-client client "I'm going to need to ask you some questions to make your account.~%")
    (let ((username (setup-username client))
  
negative.code: 	  (write-to-client client "~&Invalid username, please try again.")
  	  (prompt-username client)))))
   
  (defun/cc validate-login (client account)
    "Prompts the user for a password, and validates the login."
    (let ((password (prompt-client client "~&Password: ")))
      (if (equal password (password account))
  	account
  	(validate-login client account))))
  
  (defun/cc account-menu (client)
    "Simple selection menu that new clients once they've logged into an account."
    (write-to-client client "~&Choose your destiny: ~%")
    (write-to-client client "-----------------------~%")
  