map $x => 1 .. $n
  # or
  sub { ($x) x $n } -> ()