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