dispList_ l n = "List of Number (Integer): " <> (toStrict $ format commas n) <> " items\n    " <>  intercalate "\n    " (fmap tshow l)
dispList_ l n = "List of Number (Integer): " <> (toStrict $ format commas n) <> " items\n    " <>  intercalate "\n    " (fmap tshow l)
dispList_ l n = "List of Number (Integer): " <> (toStrict $ format commas n) <> " items\n    " <>  intercalate "\n    " (fmap tshow l)