% $Id: nestedloop.slang,v 1.0 2002/11/29 10:43:00 dada Exp $
% http://dada.perl.it/shootout/
%
% contributed by John E. Davis

define main()
{
   variable x = 0;
   variable iter = integer (__argv[1]);
   
   loop (iter)
     loop (iter)
       loop (iter)
     loop (iter)
       loop (iter)
         loop (iter)
           x += 1;
   
   vmessage ("%d", x);
}
main();