bipolar lisp