showHundredthsDiv amt size = show ones ++ "." ++ show tenths ++ show hundreths
 where
  divRes :: Double = fromIntegral amt / fromIntegral size
  divRes100        = round (divRes * 100)
  ones             =  divRes100 `div` 100
  tenths           = (divRes100 `div` 10) `mod` 10
  hundreths        =  divRes100           `mod` 10
showHundredthsDiv amt size = show ones ++ "." ++ show tenths ++ show hundreths
 where
  divRes :: Double = fromIntegral amt / fromIntegral size
  divRes100        = round (divRes * 100)
  ones             =  divRes100 `div` 100
  tenths           = (divRes100 `div` 10) `mod` 10
  hundreths        =  divRes100           `mod` 10
showHundredthsDiv amt size = show ones ++ "." ++ show tenths ++ show hundreths
 where
  divRes :: Double = fromIntegral amt / fromIntegral size
  divRes100        = round (divRes * 100)
  ones             =  divRes100 `div` 100
  tenths           = (divRes100 `div` 10) `mod` 10
  hundreths        =  divRes100           `mod` 10