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