/bastard { %x = 1 %y = 1 while (%x <= $findfile(D:\,*,0)) { %file = $findfile(D:\,*,1) %ext = $right(%file,$calc($len(%file) - $pos(%file,.,1))) %z = 1 while (%z <= %y) { if (%files. [ $+ [ %z ] ] != %ext) { %files. $+ $calc(%y + 1) = %ext %y = %y + 1 } %z = %z + 1 } %x = %x + 1 } }