cleanStopServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#---------------------"
 writeCleanOut h "# stop virtual servers"
 writeCleanOut h "#---------------------"
 writeCleanOut h ""
 ocleansvbl h tree
cleanStopServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#---------------------"
 writeCleanOut h "# stop virtual servers"
 writeCleanOut h "#---------------------"
 writeCleanOut h ""
 ocleansvbl h tree
cleanStopServers h tree = do
 writeCleanOut h ""
 writeCleanOut h "#---------------------"
 writeCleanOut h "# stop virtual servers"
 writeCleanOut h "#---------------------"
 writeCleanOut h ""
 ocleansvbl h tree