new (define-polymode ... system