picolisp: add test