CL-USER> (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"))
WARNING: redefining COMMON-LISP-USER::TRY in DEFUN
TRY
CL-USER> (let ((*print-pretty* t)) (try))
" SHELL DESIGN SUMMARY
 ====================
                 API          Design for Product        Design for                                Design
                 650              SP.GR. = 1.080     Hydrostatic Test     Corrosion               Point    Controlling            Plate
 Ring #  Width  Mat'l  Mat'l    Allowable   Calc.    Allowable    Calc.    Allowance   Thk Used  Above Jt.   Design      Weight   Type
         (in)   GROUP  Spec.     Stress     Thk       Stress      Thk         (in)       (in)      (in)     Condition     (lbs)
                                  (NM)      (in)       (NM)       (in)
"
CL-USER>