declare proc {AssociatedTest Associated} {Test {Associated 3 nil} '==>' nil} {Test {Associated 3 [(3#4) (5#7) (3#6) (9#3)]} '==>' [4 6]} {Test {Associated 2 [(1#a) (3#c) (2#b) (4#d)]} '==>' [b]} {Test {Associated 0 [(1#a) (3#c) (2#b) (4#d)]} '==>' nil} end