Create sanpei6.lisp