let pack layout ?(expand=false) ?from:( dir = (`START : pack_type)) renderer = (match dir with `START -> pack_start | `END -> pack_end) layout renderer ~expand