for i = 0 to 3
    for j = 1 to 5
        n = (i * 5) + j
        c = c + 1
        print "p(", n using "##", ") = ";
		print pancake(n) using "##", "  ";
        if mod(c, 5) = 0  print
    next j
next i
end

sub pancake(n)
    gap = 2
    sum = 2
    adj = -1
    while sum < n
        adj = adj + 1
        gap = (gap * 2) - 1
        sum = sum + gap
    wend
    return n + adj
end sub