external to_shape : t -> Shape.t = "capsule_to_shape"