in :: IO ()
main = do
	let r = buildBaseRoute ts
	benchmark "ls" $ ls r "/"

main :: IO ()
main = do
	let r = buildBaseRoute ts
	benchmark "ls" $ ls r "/"
main = do
	let r = buildBaseRoute ts
	benchmark "ls" $ ls r "/"