upd

qic.c

@@ -3570,7 +3570,7 @@ node_t *mf_len(list_t *t) {
   if (!a)
     return NULL;
 
-  if (a->tag == N_LIST)
+  if (a->tag == N_LIST || a->tag == N_TUPLE)
     return make_number(a->l->length);
 
   return NULL;
@@ -3588,7 +3588,7 @@ node_t *mf_nth(list_t *t) {
   if (!IS_NUMBER(b))
     return NULL;
 
-  if (a->tag == N_LIST)
+  if (a->tag == N_LIST || a->tag == N_TUPLE)
     return list_index(a->l, TO_DOUBLE(b));
 
   return NULL;