sub client_input {
  my ($input, $wheel_id) = @_[ARG0, ARG1];

  use Data::Dumper;
  
  print Dumper $input;
  print Dumper $wheel_id;
  
  $_[HEAP]->{clients}->{ $wheel_id }->put( $input );
}