inimum (map start as)) (maximum (map stop as))

stretch :: Pattern a -
enclosingArc as = Arc (minimum (map start as)) (maximum (map stop as))
enclosingArc as = Arc (minimum (map start as)) (maximum (map stop as))