Perl -e 'sub a{print+local$*=$*.shift,$/,a(@_)for(1)x@_};a(1..5)'


Reply via email to