sub x {
  my $y = shift;
  return sub { shift() + $y };
}