Select Code to Download

#/usr/bin/perl -w

...
   'f' => '&f(\%c)',
   'b' => '&b(\%c)',
});

Benchmark: timing 100000 iterations of b, f...
         b: 83 wallclock secs (67.82 usr + 14.38 sys = 82.20 CPU) @ 12
+16.55/s (n=100000)
         f: 80 wallclock secs (65.86 usr + 13.95 sys = 79.81 CPU) @ 12
+52.98/s (n=100000)