let unit fmt () =
  Format.fprintf fmt "()"