let escape c = ksprintf string "\027[%sm" c