sub multiplier_by {
  my $x = shift ;

  return sub {
    my $n = shift ;
    return $n * $x ;
  }
}