comp<-function(){
  cat("compensate...\n")
  comp_lb()
  comp_pol()
  comp_nv()
  cat("compensate OK\n")
}