I wrote, apparently suffering from the earliness of the hour and the fact that I was on a Win95 system: > Mine's 52 characters: > > print"@_\n"while(@_=(1,map$_[$_-1]+$_[$_],1..@_))<15 I should have written it as this (60 characters): perl -le'print"@_"while(@_=(1,map$_[$_-1]+$_[$_],1..@_))<16' -- Keith C. Ivey <kcivey@cpcug.org> Washington, DC ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe