(import (scheme base)
        (yolk common))

(define erase-screen-down
  (csi "0J"))

(define erase-screen-up
  (csi "1J"))

(define erase-screen
  (csi "2J"))

(define erase-saved-lines
  (csi "3J"))

(define erase-line-right
  (csi "0K"))

(define erase-line-left
  (csi "1K"))

(define erase-line
  (csi "2K"))

(define erase-line-and-return
  (csi "2K\r"))