let
to_string {key; collection} =
sprintf
"{%s/%s}"
Option
.(value collection ~default:
""
) key