anchor.diff:  \\usepackage{caption}
   \\usepackage{expl3}
   ")
  -
   
   (defparameter heading-conf "
   \\hfil{\\huge\\color{red}{\\textsc{Checkout Sheet}}}\\hfil
  
positive.code: (defparameter end-img-table "}")
  (defparameter end-document " \\end{document}")
  (defparameter begin-document "\\begin{document}")
  
  
  ;;;Takes an invoice and root-dir
  
  (defparameter tail-conf "
  \\par
  {\\scriptsize \\begin{singlespace} It is agreed that \\textsc{Lessee} assumes all liability and responsibility for the item(s) listed above.  When item(s) have been accepted by \\textsc{Lessee} (as evidenced by \\textsc{Lessee’s} signature below), and while in the custody and possession of \\textsc{Lessee}, its employees, agents, owners, directors and officers and any other person or entity to whom the item(s) is entrusted by \\textsc{Lessee}, or assigns.  Liability extends to the full replacement cost or repair, in Lessor’s sole discretion.  Further, Lessee assumes full responsibility for any liability arising because of the use of the item(s) during the term of the lease and until item(s) is returned to the custody and control of Lessor (as evidenced by the written acknowledgement by Lessor). Further, to the extent permitted by law, the \\textsc{Lessee} agrees to protect, indemnify, defend and hold harmless Lessor, its directors, officers, agents, shareholders, and employees, against all claims or damages to people or property and costs (including reasonable attorney’s fees), up to Lessor’s pro-rata share of the item(s), arising out of or connected with the operation of \\textsc{Lessee’s} activities with respect to the item(s), including damage caused by inadequate maintenance of the item(s), use of the item(s), or a part thereof, by any customer, any guest, invitee, or by any agent of the \\textsc{Lessee}. Replacement value of all items (unless otherwise noted) equals (10X) first week rate. \\end{singlespace}}
  
negative.code: 		       :contact-name (show-contact-name show-obj)
  		       :phone-number (show-phone-number show-obj)
  		       :order-amount (show-order-amount show-obj)
  		       :list-of-invoices (list-of-invoices show-obj))
  	*current-show-list* ))
  
  ;;;Search *USERS* for USERNAME
  (defun find-user (username)
  