ajax.opa

Server.start(
	Server.http,
	{ ~dispatch }
)

choices = ["hello world", "goodbye world"]
index = string_of_binary(File.read("index.html"))

function dispatch(Uri.relative url) {
	match (url) {
		case {path: ["getstring"] ...}:
    		string = Option.default("", List.random_elt(choices));
    		Resource.source(string, "text/plain")
		default:
			Resource.source(index, "text/html")
	}
}