# Perl, 28

Reads the parameter from stdin.

    @x=1..$_,print"@x
    "for 1..<>

From the command line:

    perl -E'$,=$";say 1..$_ for 1..<>'

but I don't now how to count that (probably between 25 and 29).