sub with_proto ()  { my $lex }