formatMem :: [Float] -> Monitor [String]
formatMem (r:xs) =
    do let f = showDigits 0
           rr = 100 * r
       ub <- showPercentBar rr r
       fb <- showPercentBar (100 - rr) (1 - r)
       rs <- showPercentWithColors r
       s <- mapM (showWithColors f) xs
       return (ub:fb:rs:s)
formatMem :: [Float] -> Monitor [String]
formatMem (r:xs) =
    do let f = showDigits 0
           rr = 100 * r
       ub <- showPercentBar rr r
       fb <- showPercentBar (100 - rr) (1 - r)
       rs <- showPercentWithColors r
       s <- mapM (showWithColors f) xs
       return (ub:fb:rs:s)
formatMem (r:xs) =
    do let f = showDigits 0
           rr = 100 * r
       ub <- showPercentBar rr r
       fb <- showPercentBar (100 - rr) (1 - r)
       rs <- showPercentWithColors r
       s <- mapM (showWithColors f) xs
       return (ub:fb:rs:s)