Mistři v programování na #hovnokod

Visual Basic #609

Dim a as Stack
Dim b as Stack

For n :=8 to 1:
    a.Push 1
    b.Push 1 xor n
    if n xor 1 = 1 then
    begin
         a.push(b) b.push(a)
    end
end

HovnoKod,