/frames 8 def
/N 420 def /rows 2 def 
/snapone 60 def /snaptwo 60 def
/Ndots N def

%include /u/rs/book3/pslib/tools.ps
%include /u/rs/book3/pslib/dots.ps


/shellsort
 { 
   { /inc exch def 
     1 1 N {inc neg inc 1 add {dup inc sub compareswap} for } for ARRAY
     inc 1 eq { exit } if
   } loop
 } def

newRow
N randomperm /A exch def
/A [ 0 A aload pop ] def
/LL 1 def /RR N 1 sub def

ARRAY
1 4 13 40 121 shellsort
ARRAY