1 2 3 4 5 6 7
module List = Core.List let sign ~priv ~msg = msg |> Utils.indexed_keys |> Utils.replace_index ~matrix:priv |> List.reduce_exn ~f:Utils.concat_hashes