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