Select Code to Download

$max = 7;
for ($i=1; $i<$max; $i++) {
...
        print ++$tuple[0],',',++$tuple[1],' ' while ($tuple[1] < $max)
+;
        print "\n"
}

for ($M=7, $i=1; @_ = (0,$i), $i<$M; $i++)
        { print ++$_[0],',',++$_[1],($_[1]==$M?"\n":" ") while ($_[1] 
+< $M) }