Define your Dream router with Routes.
Example based on Dream's 3-router:
let () =
Dream.run
@@ Dream.logger
@@ Dream_routes.routes Routes.[
Dream_routes.get @@ empty @--> (fun _request ->
Dream.html "Good morning, world!");
Dream_routes.get @@ s "echo" / int /? nil @--> (fun integer _request ->
Dream.html @@ Printf.sprintf "integer: %i" integer);
Dream_routes.get @@ s "echo" / str /? nil @--> (fun word _request ->
Dream.html word);
]
@@ Dream.not_found