sub inl () {"inline"}
sub inl () { my $lex;}
 
print inl;