++ ", \"hi\": " ++ show (ohi :: Int)
++ "}, \"current\": {\"cold\": " ++ show (floor (ccold :: Double))
++ ", \"hot\": " ++ show (floor (chot :: Double))
++ ", \"hi\": " ++ show (ohi :: Int)
++ "}, \"current\": {\"cold\": " ++ show (floor (ccold :: Double))
++ ", \"hot\": " ++ show (floor (chot :: Double))