en '0' cs = show m'
            where n = read (head $ splitOn "." cs)::Int
                  m = n `div` 1000
                  m' = if n - (m*1000) < 500 then m else m + 1


m
divsen '0' cs = show m'
            where n = read (head $ splitOn "." cs)::Int
                  m = n `div` 1000
                  m' = if n - (m*1000) < 500 then m else m + 1
divsen '0' cs = show m'
            where n = read (head $ splitOn "." cs)::Int
                  m = n `div` 1000
                  m' = if n - (m*1000) < 500 then m else m + 1