cleanRemoveSegments h tree = do
 writeCleanOut h ""
 writeCleanOut h "#------------------------"
 writeCleanOut h "# remove virtual segments"
 writeCleanOut h "#------------------------"
 writeCleanOut h ""
 ocleanrsbl h tree
cleanRemoveSegments h tree = do
 writeCleanOut h ""
 writeCleanOut h "#------------------------"
 writeCleanOut h "# remove virtual segments"
 writeCleanOut h "#------------------------"
 writeCleanOut h ""
 ocleanrsbl h tree
cleanRemoveSegments h tree = do
 writeCleanOut h ""
 writeCleanOut h "#------------------------"
 writeCleanOut h "# remove virtual segments"
 writeCleanOut h "#------------------------"
 writeCleanOut h ""
 ocleanrsbl h tree