moved primp into util.lisp