Name: Anonymous 2014-05-12 22:34
http://www.schloerconsulting.com/quantum-computer-q-lisp-programming-language
(MEASURE (QBLOCK
(+ (QCOND
((QFN-EQUAL #’F1 #’F2) 0)
( T 1))
(F1 0))))