modify: lin.lisp use block LU
optimize lin.lisp