sub seqs { map seq(@$_), @_; } sub seq_from_spec { seq_prod( seqs(@_) ); }