draw s =
    do (h, w) <- Curses.scrSize
       CursesH.gotoTop
       CursesH.drawLine w s
       Curses.refresh
draw s =
    do (h, w) <- Curses.scrSize
       CursesH.gotoTop
       CursesH.drawLine w s
       Curses.refresh
draw s =
    do (h, w) <- Curses.scrSize
       CursesH.gotoTop
       CursesH.drawLine w s
       Curses.refresh