en :: Char -> String -> String
divsen 's' cs = printf "%f" $ (read cs::Double) / 1000
div
divsen :: Char -> String -> String
divsen 's' cs = printf "%f" $ (read cs::Double) / 1000
divsen 's' cs = printf "%f" $ (read cs::Double) / 1000