lisp code for inf4820 at uio