(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"))