module Screen
  ( clear
  ) where

clear :: IO ()
clear = putStr "\ESC[H\ESC[2J"