perl -e'$\=$,=$";$b=1;
        print $b, $a += $b += $a while $a <1000;
        print"\n"'