sub foo $x { sub $y { $x * $y } }