cl-cont example