let render ~title ~tags ~body = let combine_tags lst = List.fold_left (fun t a -> t ^ " " ^ a) "" lst in