Define LIST*
WIP on QUASIEXPAND: fixes