(defun $test_readbase_lisp () '((mlist) 1 2 3 4 10 20 30 40))