[1 2 3 4 5] 6 exch tadd
 = [1 2 3 4 5 6]
 uncons
 = 1 [2 3 4 5 6]
 [] empty?
 =true