Index: tests/enum_tests/.expect/planet.txt
===================================================================
--- tests/enum_tests/.expect/planet.txt	(revision 0097d0871e5a15e1055128d4bf70284661a75a8d)
+++ tests/enum_tests/.expect/planet.txt	(revision 0097d0871e5a15e1055128d4bf70284661a75a8d)
@@ -0,0 +1,11 @@
+PLUTO is not a planet
+Your weight on MERCURY is 37.7 kg
+Your weight on VENUS is 90.5 kg
+Your weight on EARTH is 100.0 kg
+Your weight on the MOON is 16.6 kg
+Your weight on MARS is 37.9 kg
+Your weight on JUPITER is 252.8 kg
+Your weight on SATURN is 106.6 kg
+Your weight on URANUS is 90.5 kg
+Your weight on NEPTUNE is 113.8 kg
+Your weight on PLUTO is 6.3 kg
Index: tests/enum_tests/.in/planet.txt
===================================================================
--- tests/enum_tests/.in/planet.txt	(revision 0097d0871e5a15e1055128d4bf70284661a75a8d)
+++ tests/enum_tests/.in/planet.txt	(revision 0097d0871e5a15e1055128d4bf70284661a75a8d)
@@ -0,0 +1,1 @@
+100
Index: tests/enum_tests/planet.cfa
===================================================================
--- tests/enum_tests/planet.cfa	(revision 0097d0871e5a15e1055128d4bf70284661a75a8d)
+++ tests/enum_tests/planet.cfa	(revision 0097d0871e5a15e1055128d4bf70284661a75a8d)
@@ -0,0 +1,53 @@
+#include <fstream.hfa>
+#include <stdlib.hfa>
+#include <enum.hfa>
+
+struct MR { double mass, radius; };
+
+enum( MR ) Planet {										// typed enumeration
+	//          mass (kg)  radius (km)
+	MERCURY = { 0.330_E24, 2.4397_E6 },
+	VENUS   = { 4.869_E24, 6.0518_E6 },
+	EARTH   = { 5.976_E24, 6.3781_E6 },
+	MOON    = { 7.346_E22, 1.7380_E6 },					// not a planet
+	MARS    = { 0.642_E24, 3.3972_E6 },
+	JUPITER = { 1898._E24, 71.492_E6 },
+	SATURN  = { 568.8_E24, 60.268_E6 },
+	URANUS  = { 86.86_E24, 25.559_E6 },
+	NEPTUNE = { 102.4_E24, 24.746_E6 },
+	PLUTO   = { 1.303_E22, 1.1880_E6 },					// not a planet
+};
+
+enum( double ) { G = 6.6743_E-11 };						// universal gravitational constant (m3 kg-1 s-2)
+
+static double surfaceGravity( Planet p ) with( p ) {
+//	return G * mass / ( radius \ 2 );					// no qualification, exponentiation
+	return G * p.mass / ( p.radius \ 2 );				// qualification, exponentiation
+}
+static double surfaceWeight( Planet p, double otherMass ) {
+	return otherMass * surfaceGravity( p );
+}
+
+int main( int argc, char * argv[] ) {
+//	if ( argc != 2 ) exit | "Usage: " | argv[0] | "earth-weight"; // terminate program
+//	double earthWeight = convert( argv[1] );
+	double earthWeight;
+	sin | earthWeight;									// test-suite input comes for indirection
+	double earthMass = earthWeight / surfaceGravity( EARTH );
+
+//	Planet rp = fromInt( prng( countof( Planet ) ) );	// select random orbiting body
+	Planet rp = fromInt( countof( Planet ) - 1 );		// non-random for test suite
+	choose( rp ) {										// implicit breaks
+	  case MERCURY, VENUS, EARTH, MARS:
+		sout | rp | "is a rocky planet";
+	  case JUPITER, SATURN, URANUS, NEPTUNE:
+		sout | rp | "is a gas-giant planet";
+	  default:
+		sout | rp | "is not a planet";
+	}
+
+	for ( p; Planet ) {									// enumerate
+		sout | "Your weight on" | ( p == MOON ? "the" : " " ) | p
+			 | "is" | wd( 1,1,  surfaceWeight( p, earthMass ) ) | "kg";
+	}
+}