Select Code to Download

sub factory_success {
    my( $handle, $wheel_id ) = @_[ARG0, ARG1];
...
      );
    print "factory_success called, creating wheel $wheel_id for handle
+ $handle\n";
}

sub input_state {
   my ($heap, $input, $wheel_id) = @_[HEAP, ARG0, ARG1];
   print "Echoing input from wheel $wheel_id: $input\n";
   $heap->{wheel}->put($input);     # Echo it back.
}