type intList = ^intListElem; intListElem = record val : integer; next : intList; end;
function newIntList : intList;
function addIntList(l : intList; i : integer) : intList;
function delIntList(l : intList; i : integer) : intList;
function searchIntList(l : intList; i : integer) : intList;
function isEmtyIntList(l : intList) : boolean;