sub trans {
  for my $val (@_) {
     $val = $_->( $val) for @transforms;
  }
  return @_;
}