cleanServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#------------------------------"
 writeCleanOut h "# virtual servers to be removed"
 writeCleanOut h "#------------------------------"
 writeCleanOut h ""
 ocleanvbl h tree
cleanServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#------------------------------"
 writeCleanOut h "# virtual servers to be removed"
 writeCleanOut h "#------------------------------"
 writeCleanOut h ""
 ocleanvbl h tree
cleanServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#------------------------------"
 writeCleanOut h "# virtual servers to be removed"
 writeCleanOut h "#------------------------------"
 writeCleanOut h ""
 ocleanvbl h tree