refactoring Text/Papillon.hs