% $Id: nestedloop.cim,v 1.0 2002/11/07 15:47:00 dada Exp $
external class UNIX;
begin

    integer n, a, b, c, d, e, f, x;
    text t;
    t :- Blanks(80);
    t := Arg(1);
    n := t.getInt;
    if n < 1 then n := 1;
    For a := 1 step 1 until n do
    For b := 1 step 1 until n do
    For c := 1 step 1 until n do
    For d := 1 step 1 until n do
    For e := 1 step 1 until n do
    For f := 1 step 1 until n do
    x := x + 1;
    OutInt(x,0);
    OutImage;
end