deAmount :: Quantity -> Amount -> Amount
divideAmount n = transformAmount (/n)

--
divideAmount :: Quantity -> Amount -> Amount
divideAmount n = transformAmount (/n)
divideAmount n = transformAmount (/n)