use occluder in pascal and do not skip small positives