safeRatio :: SafeValue h a -> SafeValue h a -> Double
safeRatio (Value x) (Value y) =
    fromIntegral x / fromIntegral y
safeRatio :: SafeValue h a -> SafeValue h a -> Double
safeRatio (Value x) (Value y) =
    fromIntegral x / fromIntegral y
safeRatio (Value x) (Value y) =
    fromIntegral x / fromIntegral y