RosettaCodeData/Task/Loops-Nested/Phix/loops-nested-2.phix

procedure till20()
    for i=1 to 20 do
        for j=1 to 20 do
            printf(1,"%d",s[i][j])
            if s[i][j]=20 then return end if
            printf(1,", ")
        end for
        printf(1,"\n")
    end for
end procedure
till20()
printf(1,"\n")