numberWidth :: (RealFrac a, Floating a) => a -> Int
numberWidth number = ceiling $ logBase 10 $ 1 + number
numberWidth :: (RealFrac a, Floating a) => a -> Int
numberWidth number = ceiling $ logBase 10 $ 1 + number
numberWidth number = ceiling $ logBase 10 $ 1 + number