sub p{
($m,$n,@_)=@_;map{f($_,@_)}$m..$n
}

##</code><code>##

sub p{()}

##</code><code>##

sub p{}