(defun try ()
  (format nil "~1tSHELL DESIGN SUMMARY~%~
               ~1t====================~%~
               ~17tAPI~30tDesign for Product~56tDesign for~98tDesign~%~
               ~17t650~34tSP.GR. =~6,3f~53tHydrostatic Test~74tCorrosion~98tPoint~107tControlling~130tPlate~%~
               ~1tRing #~9tWidth~16tMat'l~23tMat'l~32tAllowable~44tCalc.~53tAllowable~66tCalc.~75tAllowance~87tThk Used~
               ~97tAbove Jt.~109tDesign~121tWeight~130tType~%~
               ~9t(~a)~16tGROUP~23tSpec.~33tStress~44tThk~54tStress~66tThk~78t(~a)~89t(~a)~99t(~a)~108tCondition~122t(~a)~%~
               ~34t(~a)~44t(~a)~55t(~a)~66t(~a)~%"
          1.08 "in"  "in" "in" "in" "lbs" "NM" "in" "NM" "in"))

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