var ans: [][]char
func main()
	do @ans :: #[0][]char
	do file@forEach("./bin/", true, callback, null)
	do @ans.sort()
	for i(0, ^@ans - 1)
		var s: []char :: @ans[i]
		if(s[^s - 1] = '/')
			do s :: s.sub(0, ^s - 1)
		end if
		do cui@print(s ~ "\n")
	end for
	
	func callback(path: []char, isDir: bool, data: kuin@Class): bool
		if(^path <> 6)
			do @ans :~ ["\{path.sub(6, ^path - 6)}"]
		end if
		ret true
	end func
end func