stripNL :: TextParser Char
stripNL = (do '\\' <- next; '\\' <- next; '\n' <- next; stripNL) `onFail` next

