lisp floatnumber
lisp fraction reduction