(defun pjb-try ()
  (format nil "
 SHELL DESIGN SUMMARY
 ====================
                 API          Design for Product        Design for                                Design
                 650              SP.GR. = ~6,3f     Hydrostatic Test     Corrosion               Point    Controlling            Plate
 Ring #  Width  Mat'l  Mat'l    Allowable   Calc.    Allowable    Calc.    Allowance   Thk Used  Above Jt.   Design      Weight   Type
         (~A)   GROUP  Spec.     Stress     Thk       Stress      Thk         (~A)       (~A)      (~A)     Condition     (~A)
                                  (~A)      (~A)       (~A)       (~A)
"
          1.08 "in"  "in" "in" "in" "lbs" "NM" "in" "NM" "in"))


(assert (string= (with-standard-io-syntax (pjb-try))
                 (pjb-try)))
(write-string (pjb-try))