add e14.lisp

慢到死的实现……需要优化……