let pack obj ?(expand=true) ?(from:[`START|`END]=`START) crr = (if from = `START then pack_start else pack_end) obj crr expand