(define (ansi-cls) (display ""))

(define (ansi-resize-terminal x y) (display (format "[8;~A;~At" y x)))

(define (ansi-move-to x y) (print (format "[~A;~AH" y x)))

(define (ansi-use-extended-chars) (display "(0"))

(define (ansi-set-fg x) (print (format "[38;5;~Am" x)))

(define (ansi-set-bg x) (print (format "[48;5;~Am" x)))

(define (ansi-string-fg c s) (format "[38;5;~Am~A" c s))

(define (ansi-string-bg c s) (format "[48;5;~Am~A" c s))

(define (ansi-string-at x y s) (format "[~A;~AH~A" y x s))

(define (normal) (print "(1"))