\ "No Weighting" from Starting Forth Chapter 12VARIABLE DENSITYVARIABLE THETAVARIABLE ID : " ( -- addr )   [CHAR] " WORD DUP C@ 1+ ALLOT ; : MATERIAL ( addr n1 n2 -- )    \ addr=string, n1=density, n2=theta   CREATE  , , ,    DOES> ( -- )   DUP @ THETA !   CELL+ DUP @ DENSITY !  CELL+ @ ID ! ; : .SUBSTANCE ( -- )   ID @ COUNT TYPE ;: FOOT ( n1 -- n2 )   10 * ;: INCH ( n1 -- n2 )   100 12 */  5 +  10 /  + ;: /TAN ( n1 -- n2 )   1000 THETA @ */ ; : PILE ( n -- )         \ n=scaled height   DUP DUP 10 */ 1000 */  355 339 */  /TAN /TAN   DENSITY @ 200 */  ." = " . ." tons of "  .SUBSTANCE ; \ table of materials\   string-address  density  tan[theta]    " cement"           131        700  MATERIAL CEMENT   " loose gravel"      93        649  MATERIAL LOOSE-GRAVEL   " packed gravel"    100        700  MATERIAL PACKED-GRAVEL   " dry sand"          90        754  MATERIAL DRY-SAND   " wet sand"         118        900  MATERIAL WET-SAND   " clay"             120        727  MATERIAL CLAY