(define-module (sloth interface)
#:use-module (ncurses curses)
#:export (screen
init-screen))
(define screen '())
(define (init-screen)
(set! screen (initscr))
(raw!)
(noecho!)
(keypad! screen #t))