module MuCheck.Utils.Print where import Data.List(intercalate) -- utils for interpreter showPerCent x = "(" ++ show x ++ "%)" n `percent` t = 100 * n `div` t showAS :: [String] -> String showAS = intercalate "\n" showA :: Show a => [a] -> String showA = showAS . map show