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