Select Code to Download

#!/usr/bin/perl -w

...
      speed   => sub { speed('F');   speed('M');   speed('J');   },
      } );

Benchmark: timing 100000 iterations of clarity, speed...
   clarity:  2 wallclock secs ( 1.74 usr +  0.00 sys =  1.74 CPU) @ 57
+471.26/s (n=100000)
     speed:  2 wallclock secs ( 1.78 usr +  0.00 sys =  1.78 CPU) @ 56
+179.78/s (n=100000)