consult(init).
goedel.
;cs AssocList.
;c AssocList.
;l AssocList.
Lookup(5,value,[Pair(5,"abc"), Pair(5,"xyz"), Pair(1,"lmn")], list).

Lookup(4,"rst",[Pair(5,"abc"), Pair(2,"xyz"), Pair(1,"lmn")], list).

exit.