-- | Evaluates a `UniOp` value. Note that this simply applies `evalFac` and
--   `evalLog` to the `UniOp` ADT.
evalUniOp :: UniOp -> Int -> Int
evalUniOp Fac = evalFac
evalUniOp :: UniOp -> Int -> Int
evalUniOp Fac = evalFac
evalUniOp Fac = evalFac