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;