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