anchor.diff:  		       (:div :class "user-panel"
   			     (:div :class "pull-left image"
   				   (:img :class "img-circle" :src "img/littlec.jpg"))
  -			     (:div :class "pull-left info" (:p "CAPS USER")
  +			     (:div :class "pull-left info" (fmt "~a" (escape-string (cookie-in "current-user")))
  +				   (:br)
   			     (:a :href "#" (:i :class "fa fa-circle text-success") "Online")))
   		       
   		       (:ul :class "sidebar-menu"
  
positive.code:     
  	   (:div :class "box" :id "write-up-box"
  		 
  		 (:div :class "box-header" :id "box-picture"
  		       (:center (:img :id "input-picture" :src ,image :class "img-responsive"
  				      :width "40%" :height "40%" :name ,image)))
  		 (:div :class  "box-body" 
  
negative.code:   `(with-html-output (*standard-output* nil :indent t)
       (:div :class "box box-success"
  	   (:div :class "box-header"
  		 (:h3 "Upload to this order"))
  	   (:div :class "box-body"
  		 (:form :action "/displayimagegot"
  			:class "form-inline"
  