WinZ>perl -e " print eval join '+',(1..$ARGV[0]);exit while 1" 13
91