# $Id: nestedloop.parrot,v 1.0 2002/08/20 17:00:00 dada Exp $
# http://dada.perl.it/shootout/

.constant N I0
.constant A I1
.constant B I2
.constant C I3
.constant D I4
.constant E I5
.constant F I6
.constant X I7

    set .N, P0[1]
    set .X, 0
    set .A, .N
A_LOOP:
    set .B, .N
B_LOOP:
    set .C, .N
C_LOOP:
    set .D, .N
D_LOOP:
    set .E, .N
E_LOOP:
    set .F, .N
F_LOOP:
    inc .X
    dec .F
    if .F, F_LOOP
    dec .E
    if .E, E_LOOP
    dec .D
    if .D, D_LOOP
    dec .C
    if .C, C_LOOP
    dec .B
    if .B, B_LOOP
    dec .A
    if .A, A_LOOP

    print .X
    print "\n"
    end