sumfu<-function(a,b,n=0){
  if(a<b){
    for(i in a:b){n=n+i}
  }else for(i in b:a){n=n+i}
  return <-cat(" n= ",n) 
}
sumfu(scan(),scan())