 
 : `{  \ } [ >array     ] parse-literal \ bake parsed ; parsing
 : `V{ \ } [ >vector    ] parse-literal \ bake parsed ; parsing
-: `[  \ ] [ >quotation ] parse-literal \ bake parsed ; parsing
: constructor ( seq -- quot )
    {
      { [ array? ]     [ length [ narray ] prefix-on ] }
      { [ quotation? ] [ length [ ncurry ] prefix-on [ ] prefix ] }
      { [ vector? ]    [ length [ narray >vector ] prefix-on ] }
    }
  1cond ;


      { [ comma?    ] [ drop [ >r ]          ] }
      { [ integer?  ] [ [ >r ] prefix-on     ] }
      { [ sequence? ] [ [bake] [ >r ] append ] }
      { [ word?     ] [ literalize [ >r ] prefix-on ] }
      { [ drop t    ] [ [ >r ] prefix-on     ] }
    }
  1cond ;
