>>> logBaseOr "d" "base" "val" :: SymAlgReal (ite (= base 1.0) d (fdiv (log val) (log base)))
>>> safeLogBase (ssym "base") (ssym "val") :: ExceptT ArithException Union SymAlgReal ExceptT {If (= base 1.0) (Left Ratio has zero denominator) (Right (fdiv (log val) (log base)))}