define a (1 2 3) echo [nth [cdr $a] 1] set-cdr! $a 44 echo [cdr $a]