.packageName <- "RCaBoCha"
# 2008 03 28 # the third arg omitted
RCaBoCha <-
function( str ){
#   gc()
   if(nchar( str ) < 1){
     stop("first argument must be specified")
   }
  .Call("RCaBoCha", as.character(str) ,  PACKAGE="RCaBoCha")
}
