jishu <- function(x){
    ifelse(x%%2 ==0,F,T)
}