 
 : chains ( n -- dimensioned ) 1/10 * furlongs ;
 
+: leagues ( n -- dimensioned ) 3 * miles ;
+
 : links ( n -- dimensioned ) 1/100 * chains ;
 
-: rods ( n -- dimensioned ) 11/2 * yards ;
+: rods ( n -- dimensioned ) 5+1/2 * yards ;
+
+: barleycorns ( n -- dimensioned ) 1/3 * inches ;
+
+: poppyseeds ( n -- dimensioned ) 1/4 * barleycorns ;
+
+: lines ( n -- dimensioned ) 1/4 * barleycorns ;
+
+: digits ( n -- dimensioned ) 3/4 * inches ;
+
+: hands ( n -- dimensioned ) 4 * inches ;
+
+: palms ( n -- dimensioned ) 3 * inches ;
+
+: shaftments ( n -- dimensioned ) 6 * inches ;
+
+: nails ( n -- dimensioned ) 1/16 * yards ;
+
+: spans ( n -- dimensioned ) 3 * palms ;
+
+: fingers ( n -- dimensioned ) 1/8 * yards ; ! FIXME: or 7/8 * inches?
+
+: cubits ( n -- dimensioned ) 18 * inches ;
+
+: ells ( n -- dimensioned ) 1+1/4 * yards ;
 
 ALIAS: poles rods
 

USING: kernel math prettyprint units units.si inverse ;
IN: units.imperial

: inches ( n -- dimensioned ) 254/100 * cm ;

: feet ( n -- dimensioned ) 12 * inches ;

: yards ( n -- dimensioned ) 3 * feet ;

: hands ( n -- dimensioned ) 4 * inches ;

: palms ( n -- dimensioned ) 3 * inches ;

: nails ( n -- dimensioned ) 1/16 * yards ;

: fingers ( n -- dimensioned ) 1/8 * yards ;

: miles ( n -- dimensioned ) 1760 * yards ;



: imperial-gill ( n -- dimensioned ) 5 * imperial-fluid-ounces ;


: dry-gallons ( n -- dimensioned ) 440488377086/100000000000 * L ; 

: dry-quarts ( n -- dimensioned ) 1/4 * dry-gallons ;
