allocate :: IO Vty.Vty
allocate = do
-- sets up Vty
    vt <- standardIOConfig >>= Vty.mkVty
    return vt
allocate :: IO Vty.Vty
allocate = do
-- sets up Vty
    vt <- standardIOConfig >>= Vty.mkVty
    return vt
allocate = do
-- sets up Vty
    vt <- standardIOConfig >>= Vty.mkVty
    return vt