my $f = lambda $x => sub { $x**2 };
say $f->(2); # => 4
say $f->(3); # => 9