Για να βγουν τα στοιχεια μιας λίστας (List1 ) σε ξεχωριστά αντικείμενα  α1, α2, … χρησιμοποιώ την εντολή

Execute[ Zip[“a_”J”=”K, J, Sequence[ Length[list1] ],K,list1 ] ]