cut Data.Char stuff