%%HP: T(3)A(D)F(.);
\<< \-> b d L MAJ
  \<<
    IF '\<-TP==4.'
    THEN d 3. ^ 32. /
\pi *
    ELSE b d SQ * 6.
/
    END
    IF '\<-TP==2. AND
MAJ'
    THEN 1291.9 L b d
* * / .1 ^ 1. MIN
"
  Cv = " OVER +
'\<-MSG' SWAP STO+
    ELSE
      CASE '\<-TP==4.'
        THEN d 2. / \pi
\v/ *
        END '\<-TP==1. AND
b\>=5.'
        THEN d
        END 12.
      END 12. MAX 12.
SWAP / 9. XROOT
"
  Cf = " OVER +
'\<-MSG' SWAP STO+
    END
  \>>
\>>