TextBug.lhs draft