my $f = lambda $x => sub { $x**2 }