val fuel : int
val read_unit_shape : unit_name:string -> Shape.t option